Tema: Asp/wml
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 09/05/2006, 12:26
hhpp
 
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>