<%Option Explicit%> Calendário <% 'Lógica para construir o calendário Session.LCID = 1046 'BRASIL Dim URL,Dia, Mes, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes Dim Inicio,Fim, Start, TheEnd,i, j URL= Request.ServerVAriables("SCRIPT_NAME") if (Request.QueryString("Mes") <> Month(now))AND(Request.QueryString("Mes") <> "") Then Mes=CInt(Request.QueryString("Mes"))'força que o resultado seja um inteiro else Mes = Month(now) end if Dia=Day(now) Ano = Year(now) Agora = DateSerial(Ano, mes, dia) PrimeiroDiaMes=DateSerial(Year(Now),Mes,1) UltimoDiaMes=DateSerial(Year(Now),Mes+1,1-1) Inicio = ABS(1 - WeekDay(PrimeiroDiaMes)) Fim = 7 - WeekDay(UltimoDiaMes) Start=1-Inicio TheEnd = Day(UltimoDiaMes) + Fim J=1 %>
<%Response.Write MonthName(Month(Agora))& " " & Year(Agora) %>
Do Se Te Qa Qu Se Sá
<%For i= Start to TheEnd if (i = day(now)) And (Mes=Month(now)) Then Response.Write "" Elseif (i<1) or (i > Day(UltimoDiaMes)) Then Response.Write "" Else Response.Write "" End if If j = 7 then J = 0 Response.Write "" %> <% end if J = j + 1 Next %>
"& Day(DateSerial(Year(Now),Mes,i)) & ""& Day(DateSerial(Year(Now),Mes,i)) & ""& Day(DateSerial(Year(Now),Mes,i)) & "
PAGINA EM CONSTRUÇÃO !