ayuda con combo

[doris]

hola tengo, un problemita deseo llenar 3 comboxbox dia, mes año
con la fecha de nacimiento del usuario actual.
lo que hice fue
<% dim dia, mes,anio,fechausuario
fechausuario = rs("FechaNac").value
dia = Day(fechausuario)
..
<SELECT name=dia>
<OPTION value="<%= dia %>" ><%= dia%>
</OPTION>
<Option>1</OPTION>
..
<Option>31</Option>
</select>
deseo que cuando despliego el combo, si dia tiene 1, en el combo no me vuelva a salir
1
1
..
31, sino que aparezca solo una vez y seleccionada ayudenme porfis

[bakanzipp]

<SELECT name=dia>
<%for i=1 to 31%>
<OPTION value="<%=i%>" <%if i=dia then%> Selected<%end if%>><%=i%></option>
next
</select>


algo asi