Querystring i en dropdown menu/list

Hvorfor virker dette ikke:

<select name="dato">
<%

Dag = Request.QueryString("dag") ' her er dag = med 6
strMonth = "4"
strYear = "2002"

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

Problemet er at når jeg skriver det sådan så er dropdown menuen tom, men hvis jeg f.eks. skriver 6 der hvor der står dag så virker det fint.

Hvad skal jeg gøre for at få det til at virke.

Håber det var til at forstå......