Bueno, entonces tu error es lógico, no veo el resto de tu código por lo tanto no puedo determinar exactamente que quieres hacer, pero más o menos la solución es así:
Código:
valor = "algo"
do while not rs.EOF
if rs("campo") = valor then
strSelected = "selected"
else
strSelected = ""
end if
Response.Write("<option "&strSelected&" value=""&rs("campo_algo")&"">""&rs("campo_algo")&""</option>")
rs.MoveNext
Loop