estoy echa un lio con el tema del if

[u_goldman]

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,