codice:
<%
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 or 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	
		next
		response.write "
"
	end if
next
%>