
09/05/2006, 12:26
|
| | Fecha de Ingreso: marzo-2006
Mensajes: 34
Antigüedad: 19 años, 1 mes Puntos: 0 | |
Si ya probe con otro y tb esta bien, haber si se puede les muestro el codigo( intente pero no me acepta). YUa no se que esta mal con esto ( soy muyterco hasta que funcione) si quito session tampoco funciona.
sigue el mismo error.
<%
dim cn
dim rs
dim scheckname
dim scheckpa
Session("UserName")=""
scheckname=Request.Form("txtusuario")
scheckpa=Request.Form("txtpassword")
if scheckname="" then Response.Redirect "wmluser.html"
Set Cn = Server.CreateObject( "ADODB.Connection" )
Cn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=LGPP-D704093332;UID=sa;PWD=;DATABASE=hhpp"
sSQL = "SELECT * FROM USERLIST WHERE username='" & scheckname & "'"
set rs = cn.Execute(sSQL)
if rs.EOF then
rs.close
cn.close
'Response.Redirect "wmluser.wml"
end if
' Aquies el lio
if UCase(rs.Fields("contrasena")) <> UCase(scheckpa) then
rs.close
cn.close
'Response.Redirect "wmluser.wml"
end if
rs.close
cn.close
Session("UserName")= scheckname
response.write("<p>datos correctos¡</p>")
%>
Aqui esta el listado WML
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="login" title="Móvil-bank">
<p>
Bienvenido<br/>
usuario: <input type="text" name="txtusuario"/>
Password:<input type="password" name="txtpassword"/>
<do type="accept" label="Aceptar">
<go method="post" href="http://localhost/test/procesarlogin.asp"/>
</do>
</p>
</card>
</wml> |