<% 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 %> <% 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 %> <% 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 %> <% 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 (Días)
Julio
Agosto
Septiembre
Octubre
Noviembre
Diciembre
Tecnologías de Información Aplicadas a la Auditoría y la Administración de Riesgos
Aplicaciones CAATT para Análisis de Datos
ACL 105: Principios Básicos de ACL Conceptos y Prácticas
3
2 al 4 4 al 6 3 al 5 1 al 3 3 al 5 8 al 10
ACL 201: Técnicas de Análisis de Datos (ACL Intermedio)
2
 10 y 11 - 11 y 12 9 y 10 - 1 y 2
ACL 303: Conceptos Avanzados de ACL: Funciones y Scripts
3
 28 al 30 - 15 al 17 - 17 al 19  
GE 120: Desarrollo de Aplicaciones utilizando Scripts de ACL
3
 - 27 al 29 - 27 al 29 - 3 al 5
GE 252: Detección de Fraude con ACL
3
 21 y 22 - - - -  
GE 255: Pruebas de Control Interno con ACL para el Cumplimiento de SOX 404
3
 - 25 y 26 - - -  
GE 480: Excel para Auditores
3
 - 13 al 15 - 22 al 24 -  
Auditoría de Bases de Datos
GE 670: Audit DB - Monitoreo de Actividades y Reportes - SQL
3
 - - - - 24 al 26  
GE 660: Audit DB - Evaluación - SQL
2
 - - - - 27 y 28  
Tecnología para la Automatización de la Función de Auditoría
GE 210: AutoAudit for Windows en la Automatización de la Función de Auditoría
2
 21 y 22 25 y 26 22 y 23 16 y 17 20 y 21  
GE 220: La Administración de la Automatización de la Función de Auditoría con AutoAudit
2
 28 y 29 - - 30 y 31 -  
Auditoría / Administración de Riesgos
GE 580: Fundamentos de Auditoría de Proyectos 
2
 - - 17 y 18 - 19 y 20  
GE 250: El Marco Integrado de Administración de Riesgos "COSO ERM"  
2
 - - 23 y 24 - -  

 

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