Condicional IF en desplegable

[yakare84]

Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("db\base.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(Numerodni)='" & UCase(Request("Numerodni"))&"' And UCase(Password)='" & UCase(Request("Password"))&"'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.EOF Then
Response.Write ("No hay registros con ese número de DNI")
else

y ahi viene lo del desplegable, no hago nada mas...

Masculino es el dato que tengo en la tabla o Femenino
La columna de ese dato es Sexo


Tengo varios input con el siguiente codigo

<input name="Tarjeta" type="hidden" id="Tarjeta" value="<% =Tabla("Tarjeta") %>" >

de ahi saque el Tabla("Sexo")