COMITÉ NACIONAL DE PRODUCTIVIDAD E INNOVACIÓN TECNOLÓGICA A.C.

Contacto | Mapa de Sitio | Consultores

Responsabilidad Social

• Metodología

• Calendario de Cursos

• Solicitud de Servicio

• Cédula para Apoyo

• Casos de Éxito

• Indicadores

• Contáctenos

“Desarrollar a través de Consultoría y Capacitación especializadas MIPyME’s altamente eficientes y productivas con elevados estándares de calidad y responsabilidad social, así como capacitar a su personal para asegurar su productividad y permanencia.”

COMPITE

Calendario de Cursos 2008

Categoría

» Cursos de Gestión de la Calidad ISO 9000

» Cursos de Cultura para la Calidad

» Cursos de Habilidades Gerenciales

» Cursos de Productividad y Competitividad

» Cursos de Responsabilidad Social

<% Set strConn = Server.CreateObject("ADODB.Connection") strConn.Open "DRIVER={SQL Server};SERVER=POSEIDON;Database=CURSOSNET;Uid=sa;PWD=" sql="Select * From Cursos t1 Where (Fecha = (Select min(fecha) From Cursos t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar=rs("lugar") sql2="select * from cursos where curso='"&curso&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace= link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %> <% sql="Select * From Cultura t1 Where (Fecha = (Select min(fecha) From Cultura t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar=rs("lugar") sql2="select * from cultura where curso='"&curso&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace= link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %> <% sql="Select * From habilidades t1 Where (Fecha = (Select min(fecha) From habilidades t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar=rs("lugar") sql2="select * from habilidades where curso='"&curso&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace= link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %> <% sql="Select * From productividad t1 Where (Fecha = (Select min(fecha) From productividad t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar=rs("lugar") sql2="select * from productividad where curso='"&curso&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace= link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %> <% sql="Select * From resp t1 Where (Fecha = (Select min(fecha) From resp t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar =rs("lugar") sql2="select * from resp where curso='"&curso&"'" RS2.open sql2,conn if rs2.eof then enlace=link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %> <% sql="Select * From diplomados t1 Where (Fecha = (Select min(fecha) From diplomados t2 Where t1.Curso = t2.Curso and fecha >= getdate()) and fecha >= getdate())" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) anho = Year(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF curso=RS("curso") link=RS("link") mail=rs("mail") lugar =rs("lugar") sql2 ="select * from diplomados where curso='"&curso&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace=link else enlace= ""&curso&"" end if RS2.close %> <% RS.MoveNext Loop %>

Cursos de Gestión de la Calidad ISO 9000

Curso: <%=enlace%>
Mes: <%=UCASE(response.Write(meses))%>
Día: <% response.Write(dia)%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

Cursos de Cultura para la Calidad

Curso: <%=enlace%>
Mes: <%=UCASE(response.Write(meses))%>
Día: <% response.Write(dia)%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

Cursos de Habilidades Gerenciales

Curso: <%=enlace%>
Mes: <%=UCASE(response.Write(meses))%>
Día: <% response.Write(dia)%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

Cursos de Productividad y Competitividad

Curso: <%=enlace%>
Mes: <%=UCASE(response.Write(meses))%>
Día: <% response.Write(dia)%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

Cursos de Responsabilidad Social

Curso: <%=enlace%>
Mes: <%=UCASE(response.Write(meses))%>
Día: <% response.Write(dia)%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

Iniciamos: <% response.Write(dia)%> de <%=UCASE(response.Write(meses))%> de <%=UCASE(response.Write(anho))%>
Sede: <% response.Write(lugar)%>
Informes: <%=mail%>

Subir a Categoría de Cursos

<% 'Cerramos el sistema de conexion Conn.Close %>

Inscripción:

Depositar a nombre de COMPITE Comité Nacional de Productividad e Innovación Tecnológica, A.C. en el banco Banamex: Suc. 650 No. Cuenta 7343374 el monto exacto del curso.
Llenar la ficha de registro anexa y enviarla por correo electrónico o por Fax 53220735 junto con la copia de la ficha de depósito para realizar inscripción.

Los cursos se realizan en la Aula COMPITE Manuel María Contreras 133 Piso 7, Col. Cuauhtémoc, C.P. 06500

En caso de: reprogramación, cambio de participante o cancelación deberá notificarlo por escrito ( E-mail o Fax,) 5 días antes de la fecha del curso, si la solicitud es posterior a esta fecha no podrá ser aceptada y no será reembolsable.