Foros del Web - Ver Mensaje Individual

3LmI · #1 (**permalink**) 11/11/2008, 11:34

Bueno antes que nada, gracias por su ayuda

Tengo un formulario que es el que me permite logearme para accesar a una pagina para hacer reservaciones, el problema que tengo es que el password no me reconoce me manda error ya le estuve buscando y no encuentro espero me puedan ayudar y decirme cual es mi error........ aqui dejo el codigo =) gracias

Cita:

<html>
<head>
<title></title>
<style type="text/css">

</style>
</head>

<body topmargin="0" leftmargin="0">

<p align="center"> </p>

<p align="center"> </p>

<p align="center"> </p>

<p align="center"> </p>

<p align="center" class="style1"><big>Autentificando ...</big></p>
<%
Usuario = Request.Form("usuario")
Password = Request.Form("password")
%>

<%

sql0 = "SELECT * FROM usuarios WHERE usuario= '"& usuario &"';"

Set rs0 = Server.CreateObject("ADODB.Recordset")
rs0.Open sql0, conn, 3, 3

if rs0.EOF then
Response.Write "<p align='center'><strong><font color='#000066'>ERROR..... No registrado</font></strong></p>"
%>
<script Language="VbScript">
Usuario = <% =Usuario %>
msgbox usuario & " ¡Usuario no registrado!", vbCritical
a = window.open("usuarios1.asp?NumError=1&QueUsuario=" & Usuario, "_self")
</script>
<%
else
if rs0.fields("password") <> password then
Response.Write "<p align = 'center'><strong><font color='#000066'>ERROR de Password</strong></font></p>"
%>
<script Language="VbScript">
usuario = <% =usuario %>
msgbox "¡Contraseña Incorrecta!", vbCritical
a = window.open("usuarios1.asp?NumError=2&QueUsuario=" & usuario, "_self")
</script>
<%
else
usuario = rs0.fields("usuario")
contrasena = rs0.fields("password")
%>
<script Language="VbScript">
usuario = "<% =usuario %>"
passw = "<% =contrasena %>"
<% rs0.Close %>
ventana = window.open("reservacion.asp?usuario=" & usuario, "_self")
</script>
<%
end if
end if
%>

</body>
</html>

Por favor espero me puedan ayudar hasta luego =)