select che non prende il selected

[bECH]

Voglio fare in modo che in un form ci siano 3 select; la prima sono i giorni, la seconda i mesi, la terza l'anno.
voglio che il valore di default sia la data di oggi.

oggi=Date()
arroggi=split(oggi, "/")
giorno=arroggi(0)
mese=arroggi(1)
anno=arroggi(2)

Vi riporto come esempio solo il giorno:

<select name="giorno">
<option></option>
<%
i=0
for i=1 to 31
%>
<option value="<%=i%>"
<%
if i=giorno then response.Write("selected")
%>
><%=i%></option>
<%
Next
%>
</select>

E non prende il selected

Fuori dal form response.write(giorno) restituisce il giorno, quindi non è lì l'errore.

Grazie