Calendario

Script che permette di creare un calendario che visualizza il mese e il giorno corrente:

<%
Giorno = day(now)
Mese = month(now)
Anno = year(now) 
MeseNow = month(now)
%>
<table border="1" cellpadding="0" cellspacing="0" 
style="border-collapse: collapse" bordercolor="#FFFFFF" 
width="100%">
<%
'creo la data iniziale del mese
DataInizio= "01/" &amp; Mese &amp; "/" 
&amp; Anno
Mese = DatePart("M",DataInizio)
'inizializzo il contatore dei giorni del mese 
CounterDay = 1
'ciclo scansione settimane 
for Week=0 to 5 
Response.Write("<tr>")
'ciclo che scandisce i giorni della settimana 
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
'2 indica che Lunedi 
if DayAttuale = DayX then 
if Mese=Month(DataInizio) then 
%>
<%
'generazione cella calendario
if CounterDay = Giorno and Mese = Mese then
' Coloro la cella per data odierna
Response.Write ("<td width='100' height='100' style='padding: 
0' valign='top' bgcolor='#6098D0'>") 
Response.Write ("<b><font face='Verdana' size='2' 
color='#FFFFFF'><center>" &amp; CounterDay &amp; 
"</center></font></b>")
Response.Write ("<br>") 
else
Response.Write("<td width='100' height='100' style='padding: 
0' valign='top' bgcolor='#EFF3F6'>") 
Response.Write ("<b><font face='Verdana' size='2' 
color='#336699'><center>" &amp; CounterDay &amp; 
"</center></font></b>")
Response.Write ("<br>")
end if
%>
<%
'Chiudo la cella del calendario
Response.Write ("</td>")
%>
<%
'Continuo con un altro giorno
DataInizio=dateadd("d",1,DataInizio) 
CounterDay=CounterDay+1 
else 
'se il mese del giorno non e uguale a quello 
'attuale allora il calendario h terminato esco 
'dal ciclo ponendo Week = 5
Week=5 
end if 
else 
'se il giorno non fa parte del mese 
'attuale stampo una cella vuota
Response.Write("<td width='100' height='100'>&amp;nbsp;</td>") 
end if
next
%>
<%
'Chiudo la settimana
Response.Write("</tr>")
next
%>
<%
'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>") 
%>