Confesso di non aver letto il codice

In generale la preselezione di una option si fa con uno schema simile:
codice:
<select name="miaSel">
<option value="">- scegli -</option>
<%
do until rs.eof
  vl = rs("valore")
  ds = rs("descrizione")
  response.write "<option value=""" & vl & """"
  if vl = Request("miaSel") then response.write " selected"
  response.write ">" & ds & "</option>" & vbCrLf
  rs.moveNext
loop
%>
</select>
ciao