<%
data = Cdate("01/01/2006")
while Year(data)=2006

'controllo che il giorno della settimana sia compreso tra lunedi e venerdi.
if Weekday(data, 2) <= 5 then
'con la mia funzione, controllo che questo giorno non cada tra quelli impostati come festivi
if not Festivo(data) then
Response.Write(FormatDateTime(data, vbLongDate) & "<br>" & vbCrLf)
end if
end if

'aggiungo un giorno alla data
data = DateAdd("d", 1, data)
wend

Function Festivo(data)
Festivo = false
Select case Day(data) & "/" & Month(data)
Case "25/12"
'natale
Festivo = true
Case "1/5"
'primo maggio
Festivo = true
Case "2/6"
'2 giugno
Festivo = true
'e così via
End Select

End Function

%>

Dim i
'scrivo le ore della mattina
for i = 9 to 12
Response.Write(Right("0" & i, 2) & ":00<br>" & vbCrLf)
next
'e quelle del pomeriggio
for i = 13 to 17
Response.Write(Right("0" & i, 2) & ":00<br>" & vbCrLf)
next