<%@ Language=VBScript %> <% dim TBLMeses(12) TBLMeses(1) = "Enero" TBLMeses(2) = "Febrero" TBLMeses(3) = "Marzo" TBLMeses(4) = "Abril" TBLMeses(5) = "Mayo" TBLMeses(6) = "Junio" TBLMeses(7) = "Julio" TBLMeses(8) = "Agosto" TBLMeses(9) = "Septiembre" TBLMeses(10) = "Octubre" TBLMeses(11) = "Noviembre" TBLMeses(12) = "Diciembre" dim TBLDias(7) TBLDias(1) = "Lunes" TBLDias(2) = "Martes" TBLDias(3) = "Miércoles" TBLDias(4) = "Jueves" TBLDias(5) = "Viernes" TBLDias(6) = "Sábado" TBLDias(7) = "Domingo" %> <% Response.Expires = 0 Campo = Request("Campo") nForm = Request("nForm") vdiv = Request("vdiv") if IsDate(Request("Fecha")) then Fecha = Request("Fecha") else Fecha = dateadd("yyyy",-18,date()) if Request("Mov") = "Avanzar" then Fecha = DateADD("m",1,Fecha) if Request("Mov") = "Retroceder" then Fecha = DateADD("m",-1,Fecha) if Request("Mov") = "Mes" then Fecha = DateADD("m",Request("Mes")-Month(Fecha),Fecha) if Request("Mov") = "Anno" then Fecha = DateADD("yyyy",Request("Anno")-Year(Fecha),Fecha) Dia = Day(Fecha) Mes = Month(Fecha) Anno = Year(Fecha) DiasMes = DateDiff("d","1"&"/"&Mes&"/"&Anno,DateADD("m",1,"1"&"/"&Mes&"/"&Anno)) DiaSemana = Weekday("1"&"/"&Mes&"/"&Anno,2) DiaActual = day(Date) MesActual = Month(Date) AnnoActual = Year(Date) %>

" name="frmCal"> "> "> "> "> <% Celda = 1 NumDia = 1 for Fila = 1 to 6 Response.Write("" & vbCRLF) for Semana = 1 to 7 if Celda < DiaSemana or NumDia > DiasMes then Response.Write("" & vbCRLF) else if NumDia = Dia then Color = "" elseif Semana > 5 then Color = "" Else Color = "" end if if (NumDia = DiaActual) and (Mes=MesActual) and (Anno=AnnoActual) then Color = "" end if Response.Write("" & vbCRLF) NumDia = NumDia + 1 end if Celda = Celda + 1 next Response.Write("" & vbCRLF) next %>

<< <%for iMes = 1 to ubound(TBLMeses)%> <%=left(TBLMeses(iMes)&"",3)%> <%next%> <% if len(request("fechahoy")&"")<=0 then varfecha = year(dateadd("yyyy",-10,date())) response.write varfecha fechaini = year(dateadd("yyyy",-1,varfecha)) else fechaini = year(dateadd("yyyy",-2,date())) varfecha = year(dateadd("yyyy",2,date())) end if for i=fechaini to varfecha %> <%=i%> <%next%> >>
L	M	M	J	V	S	D
	" & Color & NumDia & "
<%=titCancelar%>