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