<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %>
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Calendario%>

<%=Testo_Introduzione_Calendario%>

<% Dim MeseTemp, GiornoTemp, I, Y, Colore If Request.QueryString("d") = "" OR IsNull(Request.QueryString("d")) OR IsNumeric(Request.QueryString("d")) = False OR Len(Request.QueryString("d")) <> 8 OR IsDate(StrToData(Request.QueryString("d"))) = False Then GiornoTemp = Date() - Day(Date()) + 1 MeseTemp = Month(Date()) Else GiornoTemp = StrToData(Request.QueryString("d")) - Day(StrToData(Request.QueryString("d"))) + 1 MeseTemp = Month(StrToData(Request.QueryString("d"))) End If %> <% For Y = 1 to 6 Response.Write "" If WeekDay(GiornoTemp) <> 2 Then For I = 1 To WeekDay(GiornoTemp) - 2 Response.Write "" Next End If Do If Month(GiornoTemp) = MeseTemp Then If Day(GiornoTemp) mod 2 = 1 Then Colore = Colore_Sfondo_Footer Else Colore = "#FCFCFC" End If Response.Write "" Else Response.Write "" End If GiornoTemp = GiornoTemp + 1 Loop Until WeekDay(GiornoTemp) = 2 Response.Write "" Next %>
?d=<%=DataToStr(DateAdd("m", -1, GiornoTemp))%>">< <%=MonthName(Month(GiornoTemp))%> <%=Year(GiornoTemp)%> ?d=<%=DataToStr(DateAdd("m", 1, GiornoTemp))%>">>
<%=Testo_InizialeLunedi%>
<%=Testo_InizialeMartedi%>
<%=Testo_InizialeMercoledi%>
<%=Testo_InizialeGiovedi%>
<%=Testo_InizialeVenerdi%>
<%=Testo_InizialeSabato%>
<%=Testo_InizialeDomenica%>
 
" %> <%=Day(GiornoTemp)%> <% Response.Write "
 

<%=Testo_TornaAlMese%> <%=MonthName(Month(Date()))%> <%=Year(Date())%>


<%=Testo_LinkChiudi%>

<% Conn.Close Set Conn = Nothing %>