[an error occurred while processing this directive] <% Function MaxDiaMes(Mes) select case Mes case 1 MaxDiaMes=31 case 2 MaxDiaMes=28 case 3 MaxDiaMes=31 case 4 MaxDiaMes=30 case 5 MaxDiaMes=31 case 6 MaxDiaMes=30 case 7 MaxDiaMes=31 case 8 MaxDiaMes=31 case 9 MaxDiaMes=30 case 10 MaxDiaMes=31 case 11 MaxDiaMes=30 case 12 MaxDiaMes=31 case else MaxDiaMes=0 end select end function 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" case else NombreMes="Nombre Mes" end select end function %> Agenda de Eventos <% ActMesBuscar = Request("Mes") ActAnoBuscar = Request("Ano") if ActMesBuscar="undefined" or ActMesBuscar=vbNullString or ActMesBuscar="" then ActMesBuscar=month(date) end if if ActAnoBuscar="undefined" or ActAnoBuscar=vbNullString or ActAnoBuscar="" then ActAnoBuscar=year(date) end if Set cnPortal = Server.CreateObject("ADODB.Connection") cnPortal.Open strCN,"","" Set rsGrupo = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM VistaGrupoAgenda WHERE (1=1) " if ActMesBuscar > 0 then sql = sql & " AND MONTH(Fecha) = " & ActMesBuscar end if if ActAnoBuscar > 0 then sql = sql & " AND YEAR(Fecha) = " & ActAnoBuscar end if sql = sql & " ORDER BY Fecha ASC;" rsGrupo.Open sql, cnPortal, adOpenStatic, adLockReadOnly If (rsGrupo.EOF) Then ActMes = ActMesBuscar ActAno = ActAnoBuscar ActNombreMes = NombreMes(ActMes) SigMes = ActMes+1 AntMes = ActMes-1 SigAno = ActAno AntAno = ActAno if SigMes= 13 then SigMes=1 SigAno = ActAno+1 end if if AntMes = 0 then AntMes=12 AntAno = ActAno-1 end if %>
<% 'SE EJECUTA UN LAZO PARA LLENAR EL CALENDARIO ActDia = day(date) ActPosDia = weekday(date) ActDiaItem = 1 ActFechaItem = dateserial(ActAno,ActMes,ActDiaItem) MaxSemana = 4 if (weekday(ActFechaItem) = 6) or (weekday(ActFechaItem) = 7) then if ((MaxDiaMes(ActMes)=30) and (weekday(ActFechaItem) = 7) ) or ((MaxDiaMes(ActMes)=31) and ((weekday(ActFechaItem) = 6) or (weekday(ActFechaItem) = 7))) then MaxSemana = 5 end if end if for i = 0 to MaxSemana j = 1 %> <% Do until (j = 8) ActPosItem = weekday(ActFechaItem) if (ActPosItem = j) then %> <% ActDiaItem = ActDiaItem +1 If (ActDiaItem>MaxDiaMes(ActMes)) Then Exit Do ActFechaItem = dateserial(ActAno,ActMes,ActDiaItem) else %> <% end if j = j + 1 loop %> <% next %>
<% if ActDia = ActDiaItem then %> <%=ActDiaItem%> <% else %> <%=ActDiaItem%> <% end if %>
Agenda Vacía
<% else ActMes = month(rsGrupo("Fecha")) ActAno = year(rsGrupo("Fecha")) SigMes = ActMes+1 AntMes = ActMes-1 SigAno = ActAno AntAno = ActAno if SigMes= 13 then SigMes=1 SigAno = ActAno+1 end if if AntMes = 0 then AntMes=12 AntAno = ActAno-1 end if ActNombreMes = NombreMes(ActMes) %>
 <%=ActNombreMes%>, <%=ActAno%>
<% 'SE EJECUTA UN LAZO PARA LLENAR EL CALENDARIO ActDia = day(date) ActPosDia = weekday(date) ActDiaItem = 1 ActFechaItem = dateserial(ActAno,ActMes,ActDiaItem) MaxSemana = 4 if (weekday(ActFechaItem) = 6) or (weekday(ActFechaItem) = 7) then if ((MaxDiaMes(ActMes)=30) and (weekday(ActFechaItem) = 7) ) or ((MaxDiaMes(ActMes)=31) and ((weekday(ActFechaItem) = 6) or (weekday(ActFechaItem) = 7))) then MaxSemana = 5 end if end if for i = 0 to MaxSemana j = 1 %> <% Do until (j = 8) ActPosItem = weekday(ActFechaItem) if (ActPosItem = j) then %> <% ActDiaItem = ActDiaItem +1 If (ActDiaItem>MaxDiaMes(ActMes)) Then Exit Do ActFechaItem = dateserial(ActAno,ActMes,ActDiaItem) else %> <% end if j = j + 1 loop %> <% next %>
<% if (not rsGrupo.eof) and (not rsGrupo.bof) then ActFecha = rsGrupo("Fecha") end if if (ActFechaItem = ActFecha) then %> <% else %> <% end if if (ActDia = ActDiaItem) then %> <%=ActDiaItem%> <% else %> <%=ActDiaItem%> <% end if %> <% if (ActFechaItem = ActFecha) then if (not rsGrupo.eof) and (not rsGrupo.bof) then rsGrupo.movenext end if %> <% else %> <% end if %>
<% end if %>