Datoer

Jeg sidder stadig og roder lidt med dette script:

<%
strMonth = "1 to 12"
strYear = "2002"

For i=1 to 31
myDate = i & "-" & strMonth & "-" & strYear
If IsDate(MyDate) then
  If Weekday(MyDate) = 6 Then 'søndag = 1, mandag = 2 ... fredag = 6
  response.write "<option>"&MyDate&"</option>"
  End If
End If
Next
%>

I stedet for at få udskrevet datoerne for fredage i en bestemt måned, kunne jeg godt tænke mig at få udskrevet samtlige datoer for fredage i et helt år, og hvis det kan lade sig gøre at de datoer som er udgået automatisk forsvinder.