Case X :
If bDisplayCalendario Then

'Se si vuole il calendario in cornice, togliere il commento alle righe CreateTopTable e CreateBottomTable

CreateTopTable "Calendario", "Calendario Eventi"
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)
MeseNow = month(dt)
Anno = year(dt)

Mese=request("mese")

if Mese="" then
Mese=MeseNow
Anno=year(dt)
else
Mese=Mese
Anno=request("anno")
end if

if Mese="0" then
Mese=12
Anno=request("anno")-1
end if

if Mese="13" then
Mese=1
Anno=request("anno")+1
end if


dtInizio=DateSerial(Anno, CInt(Mese), 1)
select case mese
case 1 : mesed="GEN"
case 2 : mesed="FEB"
case 3 : mesed="MAR"
case 4 : mesed="APR"
case 5 : mesed="MAG"
case 6 : mesed="GIU"
case 7 : mesed="LUG"
case 8 : mesed="AGO"
case 9 : mesed="SET"
case 10: mesed="OTT"
case 11: mesed="NOV"
case 12: mesed="DIC"
case else
end select

mesedopo=Mese+1
meseprima=Mese-1

Response.Write("<table border='0' cellpadding='0' cellspacing='0' width='140' align='center' valign='top'>")
Response.Write("<tr border=0>")
Response.Write("<td height='10' valign='middle' align='center' class=myTitle><a href=""default.asp?mese=" & meseprima & "&anno=" & Anno & """><font size='2'><center><</center></font></a></td>")
Response.Write("<td height='10' valign='middle' colspan='5' align='center' class=myTitle><font size='2'><center>" & mesed &" " & Anno &"</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myTitle><a href=""default.asp?mese=" & mesedopo & "&anno=" & Anno & """><font size='2'><center>></center></font></a></td>")
Response.Write("</tr></table>")
Response.Write("<table border='0' cellpadding='0' cellspacing='1' width='140' 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
Response.Write "<center><a href="""&GLOBAL_SITE_URL&GLOBAL_SITE_PATH&"eventiweek.asp""><font size='1'>Questa settimana</font></a></center>" & vbCRLF
CreateBottomTable ""

End If