<% 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 Primer 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 (Horas)
Enero
Febrero
Marzo
Abril
Mayo
Junio
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
28 al 30 20 al 22 26 al 28 23 al 25 19 al 21 11 al 13
ACL 201: Técnicas de Análisis de Datos (ACL Intermedio)
2
     10 y 11      
ACL 303: Conceptos Avanzados de ACL: Funciones y Scripts
3
   27 al 29     14 al 26  
GE 120: Desarrollo de Aplicaciones utilizando Scripts de ACL
3
     3 al 5     25 al 27
GE 110: Muestreo para Auditoría con ACL
1
       17    
ACL 252: Detección de Fraude con ACL
2
       21 y 22    
ACL 255: Pruebas de Control Interno con ACL para el Cumplimiento de SOX 404
2
         29 y 30  
GE 150: La Administración del Servidor de la Función de Auditoría
1
           16
GE 180: Aplicaciones y Mejores Prácticas de Auditoría con ACL para el Gobierno
3
         21 al 23  
GE 480: Excel para Auditores
3
       23 al 25    
Auditoría de Bases de Datos
GE 670: Audit DB - Monitoreo de Actividades y Reportes - SQL
3
           16 al 18
GE 660: Audit DB - Evaluación - SQL
2
           19 y 20
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
 24 y 25 25 y 26 27 y 28 28 y 29 29 y 30 19 y 20
GE 220: La Administración de la Automatización de la Función de Auditoría con AutoAudit
2
     13 y 14     9 y 10
Auditoría / Administración de Riesgos
GE 250: El Marco Integrado de Administración de Riesgos “COSO ERM”
2
   14 y 15     8 y 9  
GE 270: Introducción al Monitoreo Continuo
1
           6
GE 580: Fundamentos de Auditoría de Proyectos 
2
       15 y 16   11 y 12
GE 585: La Definición y la Gestión del Proyecto de Auditoría
1
           26
Control Avanzado de Proyectos
Gestión de Proyectos
GE 301: Gerencia Exitosa de Proyectos 2  5 y 6   18 y 19
GE 310: Planificación y Control de Proyectos con Primavera - Nivel Fundamentos 224 y 25 14 y 15 6 y 7 3 y 4 5 y 6 5 y 6
GE 320: Planificación y Control de Proyectos con Primavera Contractor 2 7 y 8  14 y 15  19 y 20
GE 340: Planificación y Control de Proyectos con Primavera Web Access
2
     10 y 11   22 y 23  
GE 350: Utilización Efectiva de MS Project 3 18 al 20 10 al 129 al 11 19 al 21 9 al 11
Gestión Avanzada de Proyectos
GE 315: Planificación y Control de Proyectos con Primavera Nivel Avanzado 2 25 y 26  28 y 29  16 y 17
GE 330: Administración y Control de Proyectos con Primavera Contract Manager (Antes Expedition)
3
 5 al 7   2 al 4
GE 360: Administración de Primavera 1.529 y 30  27 y 28  29 y 30  
Riesgo y Auditoría de Proyectos
GE 370: Análisis de Riesgo con PertMaster Project Risk 2 21 y 22  10 y 11  19 y 20
GE 580: Fundamentos de Auditoría de Proyectos  2   15 y 16  11 y 12
GE 585: La Definición y la Gestión del Proyecto de Auditoría 1     26
Desktop Computing - Microsoft
Hojas de Cálculo

GE 401: Técnicas Fundamentales para el Uso Efectivo de MS Excel (Nivel Fundamentos)

 3  3 al 5  7 al 9  
GE 402: Técnicas Avanzadas para Usuarios de MS Excel 3 23 al 25 18 al 20 10 al 12 9 al 11 5 al 7 2 al 4
GE 403: Desarrollo de Soluciones utilizando VisualBasic para MS Excel (Nivel Avanzado) 3 13 al 15  14 al 16  16 al 18
Hojas de Cálculo Aplicadas
GE 480: Excel para Auditores 3   23 al 25   
Plataforma iSeries
Fundamentos del Sistema
GE 701: Fundamentos y Ambiente Operacional del iSeries 3 13 al 15  2 al 4   
Administración del Sistema
GE 710: Administración y Control de Recursos del OS/400 3  3 al 5   4 al 6
GE 720: Seguridad en el iSeries 3 27 al 29   14 al 16  
Plataforma pSeries
Fundamentos del Sistema
GE 801: Fundamentos y Ambiente Operacional AIX 3 25 al 27     
Administración del Sistema
GE 810: Administración Básica del AIX 3   16 al 18   
GE 820: Seguridad en AIX 3    21 al 23 
Programación
GE 830: Programación con el Shell 3     18 al 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