Condicional IF en desplegable

[yakare84]

Muy buenas tardes, quisiera saber si este código está bien o no, porque para mi está bien, pero para el internet explorer no.

Quisiera saber si ustedes ven algun error en el mismo.

Les comento lo que trato de hacer.
Tengo una base de datos en access que completan los usuarios. Tienen la opcion de modificar sus datos y quiero que en la seleccion de sexo tenga seleccionado en un combo box o desplegable la opcion que tiene guardada en la base de datos.

Seguramente me estoy haciendo quilombo por una boludez pero no llego a encontrar donde esta mi error.

Consulte un manual de asp y las variables las copié tal cual.
Quizás mi problema está en la parte donde las mando al Combo Box.

Desde ya muchas gracias!!

Les dejo el código:----

<%
set sexo = Tabla("Sexo")

Dim masc, fem
masc = "Masculino"
fem = " Femenino"

If sexo = "Masculino" Then
set opcion1 = masc
set opcion2 = fem
Else
set opcion1 = fem
set opcion2 = masc
End If
%>

<select name="Sexo" class="style" id="Sexo" tabindex="2">
<option value="<% =opcion1 %>" selected><% =opcion1 %></option>
<option value="<% =opcion2 %>"><% =opcion2 %></option>
</select>

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: '[string: "Masculino"]'

/modificar.asp, line 304

la linea 304 es --- set opcion1 = masc ---


eso es todo, muchas gracias!

[Shiryu_Libra]

te faltaban las comillas

If sexo = "Masculino" Then
set opcion1 = masc
set opcion2 = fem
Else
set opcion1 = fem
set opcion2 = masc
End If

[yakare84]

Le puse las comillas y me tira un error, ahi edite el post.

Gracias igualemtne!!!

[Shiryu_Libra]

podrias decirme de donde tomas el valor de la tabla???
TABLA("sexo") = request.form("sexo")???
o si masculino es una variable???

[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")

[Shiryu_Libra]

estas evaluando un string o a una variable??

ahora el campo "sexo".. es de tipo string(masculino,femenino) o tipo numerico(1,2)???

[yakare84]

en la tabla es string, es Masculino o Femenino

y lo que quiero es que de alguna forma preguntar si el dato que levanta en masculino. si es verdadero que me marque el Masculino en el desplegable sino el femenino.
No hay otra opcion porque en el registro de usuario se le obliga a poner uno de los 2.

Muchas gracias por tu atencion!

[JuanRAPerez]

tu codigo con las comillas correctas

<%
set sexo = Tabla("Sexo")

Dim masc, fem
'masc = "Masculino"
'fem = " Femenino"

If sexo = "Masculino" Then
opcion1 = "Masculino"
opcion2 = "Femenino"
Else
opcion1 = "Femenino"
opcion2 = "Masculino"
End If
%>

pruebalo

suerte


EDITADO:
Tu error era:

Se requiere un objeto: '[string: "Masculino"]'
/modificar.asp, line 304
la linea 304 es --- set opcion1 = masc ---

Solucion

opcion1 = "unString" (entre comillas)

---

[yakare84]

Sos un idolo!!! grande!!
Funco, funco! eran esas comillas!!

MUCHISIMAS GRACIAS!!!