sinceramente non vedo nessun write...
comunque dovresti provare nel ciclo a fare:

<select name="anno_nascita">

<%


Anno_Corrente=Year(Now())

Anno_Minimo=Anno_Corrente-99

Anno_Massimo=Anno_Corrente-18

For i=Anno_Minimo to Anno_Massimo

If Request.Form("anno_nascita")=i then
selected = " selected"
Else
selected = ""
End If

response.write(selected)
%>
<option value="<%=i%>"<%=selected%>><%=i%></option>

<%

Next

%>

</select><%=Request.Form("anno_nascita")%>

se te ne scrive piu di uno ad esempio non funziona se non erro cosi come se non te ne scrive nessuno