Supongo que tu pseudo dato fecha lo guardás en la BD en tres campos.
Yo haría lo siguiente:
Código:
dia = rs("dia")
mes = rs("mes")
anio = rs("anio")
response.write "<select name='dia' id='dia'>"
selected = ""
for i = 1 to 31
if cint(dia) = i then selected = " selected = 'selected'"
response.write "<option value='" & i & "'" & selected & ">" & i & "</option>" & vbcrlf
next
response.write "</select>"
... y así para el mes y el año