codice:
<% 
Session.LCID = 1040 

If Request("data") ="" then 
data = Date() 
else 
data = CDate(Request("data")) 
end if 

mese = Month(data) 
anno = Year(data) 

function giornidelmese(mese, anno) 
DataInizio = CDate("01/" & mese & "/" & anno) 
DataFine = DateAdd("m", 1, DataInizio) 
giornidelmese = DateDiff("d", DataInizio, DataFine) 
end function 
%> 
<table width="280"> 
<tr align="center" bgcolor="#339900" class="testo"> 
<td >Lu</td> 
<td >Ma</td> 
<td >Me</td> 
<td >Gi</td> 
<td >Ve</td> 
<td >Sa</td> 
<td >Do</td> 
</tr> 
<% 
DataInizio = CDate("01/" & mese & "/" & anno) 
for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 

for i = 1 to giornidelmese(mese,anno) 
data = Cdate(( i & "/" & mese & "/" & anno)) 
if WeekDay(data) = 2 then Response.Write "<tr class=testog>" 
Response.Write("<td height=17 align=center bgcolor=F4F4F4>" & i & "</td>") 
if WeekDay(data) = 1 then Response.Write "</tr>" 
next 

for j = WeekDay(Data)+1 to 7 
Response.write "<td height=17 class=testog> </td>" 
if j mod 7 = 0 then Response.Write "</tr>" : exit for 
next 
%> 
</table>