14/05/2004, 10:50
|
| | | Fecha de Ingreso: abril-2004
Mensajes: 19
Antigüedad: 21 años Puntos: 0 | |
| sigue sin funcionar
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> |