codice:
<%
dataInizio = cDate("01/04/2005")
dataFine = cDate("30/09/2005")

while dataInizio < dateAdd("d",1,dataFine)
if WeekDay(dataInizio) = 7 then
response.write formatDateTime(dataInizio,vbLongDate) & "
"
end if
dataInizio = dateAdd("d",1,dataInizio)
wend
%>