27 maggio 2003 alle 23:27:22

Case X :
If bDisplayCalendario Then
'Se si vuole il calendario in cornice, togliere il commento alle righe CreateTopTable e CreateBottomTable

CreateTopTable "calendar", GetTranslation("LANG_BLOCK_4")
Dim Giorno, Mese, Anno, MeseNow, mesed, mesedopo, meseprima, DataInizio, CounterDay, Week, DayX
Dim DayAttuale, sUrl, dt, i, dtInizio, s
sURL = Request.ServerVariables("SCRIPT_NAME")
dt=Now()
Giorno = day(dt)
Mese = request("mese")
Anno = year(dt)
MeseNow = month(dt)
if mese="" then Mese=MeseNow
if mese="0" then Mese=MeseNow
dtInizio=DateSerial(Year(dt), CInt(mese), 1)
Select Case mese
Case 1 : mesed="Gennaio"
Case 2 : mesed="Febbraio"
Case 3 : mesed="Marzo"
Case 4 : mesed="Aprile"
Case 5 : mesed="Maggio"
Case 6 : mesed="Giugno"
Case 7 : mesed="Luglio"
Case 8 : mesed="Agosto"
Case 9 : mesed="Settembre"
Case 10: mesed="Ottobre"
Case 11: mesed="Novembre"
Case 12: mesed="Dicembre"
Case else
End Select
mesedopo=mese+1
meseprima=mese-1
Response.Write("<table border='0' cellpadding='0' cellspacing='0' width='148' align='center' valign='top'>")
Response.Write("<tr border=0>")
Response.Write("<td height='10' valign='middle' align='center' class=cell><a href=""default.asp?mese=" & meseprima & """><font size='2'><center><</center></font></a></td>")
Response.Write("<td height='10' valign='middle' colspan='5' align='center' class=cell><font size='2'><center>" & mesed & "</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=cell><a href=""default.asp?mese=" & mesedopo & """><font size='2'><center>></center></font></a></td>")
Response.Write("</tr></table>")
Response.Write("<table border='0' cellpadding='0' cellspacing='1' width='148' align='center' valign='top'><tr>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>L</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>M</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>M</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>G</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>V</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>S</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>D</center></font></td>")
Response.Write("</tr>")
DataInizio= "01/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)
i=0
dt=dtInizio
CounterDay = 1
for Week=0 to 5
Response.Write "<tr>" & vbCRLF
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
if DayAttuale = DayX then
dt=DateAdd("d", dtInizio, i)
i=i+1
if Mese=Month(DataInizio) then
s="<td width=""20"" height=""10"" valign='middle' align='center' title="""& dt &""" "
if CInt(CounterDay) = CInt(Giorno) and Mese = MeseNow then
s=s& "class=myCalendardaystoday"
else
s=s& "class=myCalendardays"
end if
if CInt(CounterDay)<=9 then CounterDay="0"&CounterDay
s=s&"><a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "eventi.asp?date=" &CDate( CounterDay & "/" & mese & "/" & Anno )&"""><font class=myCalendarDaynow>"
if getEventiCount(dt)>0 then
s=s& "<font class=myCalendardaysev>" & CounterDay & "</font>"
else
s=s& CounterDay
end if
s=s& "</a></font>" & vbCRLF
Response.Write s
Response.Write "</td>" & vbCRLF
DataInizio=dateadd("d",1,DataInizio)
CounterDay=CInt(CounterDay)+1
else
Week=5
end if
else
Response.Write "<td valign='middle' align='center' width=""20"" height=""10"" bgcolor=""#DBDBDB""><font size='2' color=""#DBDBDB"">00</font></td>" & vbCRLF
end if
next
Response.Write "</tr>" & vbCRLF
next
Response.Write "</table><br>" & vbCRLF
CreateBottomTable ""
End If