calendario anno settimane

[agenti]

<%
anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12
if mese < 7 and mese > 8 then
response.write monthName(mese) & ": "
cnt = 1
for giorno = 1 to 31
data = giorno & "/" & mese & "/" & anno
if isDate(data) then
if datePart("w",data) = giornoDellaSettimana then
if cnt = 1 or cnt = 3 then
response.write giorno & " "
end if
cnt = cnt + 1
end if
end if
end if
next
response.write "
"
next
%>