<% function nombreMes(mes) select case mes case 1 nombreMes = "Enero" case 2 nombreMes = "Febrero" case 3 nombreMes = "Marzo" case 4 nombreMes = "Abril" case 5 nombreMes = "Mayo" case 6 nombreMes = "Junio" case 7 nombreMes = "Julio" case 8 nombreMes = "Agosto" case 9 nombreMes = "Septiembre" case 10 nombreMes = "Octubre" case 11 nombreMes = "Noviembre" case 12 nombreMes = "Diciembre" end select end function topico=request.QueryString("topico") verif_mes = month(date()) if verif_mes >= 7 then anio= year(date()) else anio = year(date()) end if 'response.Write(verif_mes) 'response.Write("
") 'response.Write(anio) fecha_origen="01/01/"&anio fecha_origen=cdate(fecha_origen) fecha1 =fecha_origen fecha2 = dateadd("m",6,fecha1) 'fecha1 =(date()) 'fecha2 = dateadd("m",6,fecha1) 'fecha1 = "1/"& Month(fecha1) &"/"& Year(fecha1) 'fecha2 = "1/"& Month(fecha2) &"/"& Year(fecha2) If Month(fecha1) < 10 then fechaq1 = "0" &Month(fecha1) & "/01/"& Year(fecha1) Else fechaq1 = Month(fecha1) & "/01/"& Year(fecha1) End if If Month(fecha2) < 10 then fechaq2 = "0" &Month(fecha2) & "/01/"& Year(fecha2) Else fechaq2 = Month(fecha2) & "/01/"& Year(fecha2) End if fe1 = Month(fecha1) mes1=nombreMes(fe1) ano1 = year(fecha1) fe2 = dateadd("m",1,fecha1) fe3 = dateadd("m",2,fecha1) fe4 = dateadd("m",3,fecha1) fe5 = dateadd("m",4,fecha1) fe6 = dateadd("m",5,fecha1) an2 = dateadd("m",1,fecha1) an3 = dateadd("m",2,fecha1) an4 = dateadd("m",3,fecha1) an5 = dateadd("m",4,fecha1) an6 = dateadd("m",5,fecha1) fe2 = Month(fe2) mes2=nombreMes(fe2) ano2 = year(an2) fe3 = Month(fe3) mes3=nombreMes(fe3) ano3 = year(an3) fe4 = Month(fe4) mes4=nombreMes(fe4) ano4 = year(an4) fe5 = Month(fe5) mes5=nombreMes(fe5) ano5 = year(an5) fe6 = Month(fe6) mes6=nombreMes(fe6) ano6 = year(an6) 'tomo fecha Const adCmdText = &H0001 Const adOpenStatic = 3 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\HomePages\Eniac\BDAccess\cursos2.mdb;" set rso = CreateObject("ADODB.Recordset") sqlSQL="SELECT * FROM Programados1 " _ &" WHERE ((([Programacion].[Fecha_desde])>=#"&fechaq1&"#) AND (([Programacion].[Fecha_hasta])<=#"&fechaq2&"#) AND (([topicos].[cod_topico])="&topico &") AND ((Programados1.cod_idioma)=1))" rso.Open sqlSQL,Conn,adopenstatic,adcmdtext 'Set rso = Conn.Execute(sqlSQL) var="1Ssemestre" 'semestre=1 'semestre=1 'response.Write(sqlSQL) %> Calendario de Cursos, Eniac
 

Cursos Eniac Segundo Semestre

<% End if nmes = 1 fin = rso.recordcount cuenta = 1 Do While NOT rso.EOF %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% end if categoria = categoria2 curso = curso2 End If Else%> <% End if Else %> <% End If end if next Loop If rso.EOF Then Do while numero_mes < 6 %>
 
Duración (Dias)
Julio
Agosto
Septiembre
Octubre
Noviembre
 Diciembre
Sistemas de Administración y Control de Proyectos
Gestión de Proyectos
GE 301: Gerencia Exitosa de Proyectos 2 - 6 y 7 - 8 y 9 --
GE 310: Planificación y Control de Proyectos con Primavera - Nivel Fundamentos 3 - 11 al 13 3 al 5 1 al 3 3 al 5 3 al 5
GE 320: Planificación y Control de Proyectos con Primavera Contractor 2 - 7 y 8 - 13 y 14 -15 y 16
GE 340: Planificación y Control de Proyectos con Primavera Web Access
2
 - 4 y 5 - - 17 y 18 -
GE 350: Utilización Efectiva de MS Project 3 14 al 16 - 15 al 17 - 19 al 21-
Gestión Avanzada de Proyectos
GE 315: Planificación y Control de Proyectos con Primavera Nivel Avanzado 2 - 25 y 26 - 13 y 14 --
GE 330: Administración y Control de Proyectos con Primavera Contract Manager (Antes Expedition)
3
 - - - - 26 al 28 -
GE 360: Administración de Primavera 1.5 28 y 29 - 29 y 30 - 24 y 25-
Riesgo y Auditoría de Proyectos
GE 370: Análisis de Riesgo con PertMaster Project Risk 2 21 y 22 - 1 y 2 - 10 y 11 -
GE 580: Fundamentos de Auditoría de Proyectos  2 - - 17 y 18 - 19 y 20 -

 

Programación para Venezuela / En otros países se dictan según demanda

Si desea mayor información puede contactarnos por el e-mail: info.cursos@eniac.com

Regresar