mostrar data en un select mediante consulta a mi bd

[banrey]

Buenisima tu respuesta me distes una idea y la estoy realizando asi

<%
If rs1.fields("sexo")=1 Then
a = "Femenino"
Response.Write("<option selected value=" & 1 & ">" & a & "</option>")
else
b = "Masculino"
Response.Write("<option selected value=" & 2 & ">" & b & "</option>")
End IF
%>

Ahora esta condicionada la salida pero yo quiero mostrar tanto el dato que esta en la bd como lo q estan por defecto:

Ejemplo
El Usuario escojio ser del sexo Femenino,asi estaria alojado en mi bd pero tambien quiero mostrar el sexo masculino y el porque es el siguiente quiero actualizar la data y si este usuario se equivoco quiero mostrar ambos tanto el q escojio con anterioridad que se encuentra almacenado en mi bd como las demas opciones.

Como lo hago??

Muchas Gracias