<%
session.LCID = 1040
anno = datePart("yyyy",date())
inizio = cDate("01/01/" & anno)
do until giornoSettimanaInizio = 1
giornoSettimanaInizio = weekDay(inizio)
inizio = dateAdd("d",-1,inizio)
loop
fine = cDate("31/12/" & anno)
do until giornoSettimanaFine = 2
giornoSettimanaFine = weekDay(fine)
fine = dateAdd("d",1,fine)
loop
%>
<table>
<tr>
<td>Lunedì</td>
<td>Martedì</td>
<td>Mercoledì</td>
<td>Giovedì</td>
<td>Venerdì</td>
<td>Sabato</td>
<td>Domenica</td>
<td></td>
</tr>
<%
settimana = 1
data = inizio
while not data > fine
giornoSettimanaNumerico = weekDay(data)
if giornoSettimanaNumerico = 2 then
%>
<tr>
<%
end if
%>
<td><%=data%></td>
<%
if giornoSettimanaNumerico = 1 then
%>
<td>
</td>
</tr>
<%
settimana = settimana + 1
end if
data = dateAdd("d",1,data)
wend
%>
</table>