estoy echa un lio con el tema del if

isabelita · #1 (**permalink**) 14/05/2004, 10:05

Yo tengo este codigo ,no entiendo pq me dice siempre false si se perfecitamente que hay un momento en el q son iguales los valores tienes algo q ver con el tipo de valores q sean o con la forma de poner comillas o algo asi.El codigo es este
Do Until rs.EOF
if cod= rs("cod_socio") then
Response.Write "estoy aki dentro"
end if
rs.MoveNExt
Loop

El cod_socio es autonumerico y el cod es un atributo q lo recojo en un formulario y lo paso a la pagina nueva obteniendolo asi
dim cod
cod = Request.Querystring("CodigoUsuario")
CodigoUsuario es el atributo del formulario q mando
Un saludo y gracias!!!!

u_goldman · #2 (**permalink**) 14/05/2004, 10:40

Cita:

El cod_socio es autonumerico y el cod es un atributo q lo recojo en un formulario y lo paso a la pagina nueva obteniendolo asi
dim cod
cod = Request.Querystring("CodigoUsuario")

Con qué método estás enviando el formulario, si lo estás envíando mediante post, no lo puedes recoger con querystring, tiene que ser con el método form del objeto request.

cod = request.form("CodigoUsuario")

Es lo único que veo raro.

Salu2,

isabelita · #3 (**permalink**) 14/05/2004, 10:50

Pues lo mando con el metodo get el codigo entero es este.
<% @LANGUAGE=VBScript %>
<html>
<body>
<%
dim cod
cod = Request.Querystring("CodigoUsuario")
dim pass
pass = Request.Querystring("PassUsuario")
dim tipo
tipo = Request.Querystring("TipoUsuario")

dim cn
dim strODBC
dim strSQL
dim rs
strODBC="FILEDSN=Apw2Tienda.dsn"
strSQL="Select * from Socio"
set cn=Server.CreateObject("ADODB.Connection")
cn.Open StrODBC
Set rs=Server.CreateObject("ADODB.RecordSet")
set rs = cn.Execute(strSQL)

Do Until rs.EOF
if cod=rs("cod_socio") then
Response.Write "estoy aki dentro"
end if
rs.MoveNExt
Loop

%>

</html>
</body>

u_goldman · #4 (**permalink**) 14/05/2004, 10:59

Entonces puede ser que el tipo de cursor con el que abres tu rs no te permita recorrerlo...a menos que no tuvieras ese valor porque hayas eliminado algunos registros.

Trata así:

dim cod
cod = Request.Querystring("CodigoUsuario")
dim pass
pass = Request.Querystring("PassUsuario")
dim tipo
tipo = Request.Querystring("TipoUsuario")

dim cn
dim strODBC
dim strSQL
dim rs
strODBC="FILEDSN=Apw2Tienda.dsn"

set cn=Server.CreateObject("ADODB.Connection")
cn.Open StrODBC
strSQL="Select * from Socio"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, cn, 3, 3

Do Until rs.EOF
if cod=rs("cod_socio") then
Response.Write "estoy aki dentro"
end if
rs.MoveNExt
Loop

Salu2,

Myakire · #5 (**permalink**) 14/05/2004, 11:15

Tambien puedes dar un alltrim a los campos, un upper, y todo los que asegure que son iguales.

Saludos

tunait · #6 (**permalink**) 14/05/2004, 11:19

jo... a mi eso también me ha pasado en más de una ocasión y me ha vuelto loca.....

Tal vez interpreta que el autonumérico es un number y en cambio el valor que recibe del formulario lo interpreta como un string. Prueba a pasar a string el autonumérico para hacer la comparación...

Do Until rs.EOF
if cod= cstr(rs("cod_socio")) then
Response.Write "estoy aki dentro"
end if
rs.MoveNExt
Loop

... por probar....