Error de Password

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 =)

JuanRAPerez · #2 (**permalink**) 11/11/2008, 12:01

ummm
palabra reservada???'

ClaveUsuario = Request.Form("password")

...
if rs0.fields("password") = ClaveUsuario then
'ingresa
else
'error
'end if

suerte

Adler · #3 (**permalink**) 11/11/2008, 12:32

Hola 3Lml

Aquí tienes un listado de palabras reservadas, y como te dice JuanRa es problema esta en la palabra password

Suerte

3LmI · #4 (**permalink**) 14/11/2008, 13:25

Hola =)
ya solucione el problema pero ahora tengo otro :S
espero me puedan ayudar =)

el problema ke tengo es ke tengo ke autenticar si es administrador o usuario me podrian ayudar please =)

3LmI · #5 (**permalink**) 14/11/2008, 13:26

este es mi codigo espero me puedan ayudar =) 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")
ClaveUsuario = 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") = ClaveUsuario then
' 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")

sqlc = "SELECT permiso FROM usuarios WHERE usuario= '"& usuario &"';"
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.Open sqlc, conn, 3, 3

if rsc.fields("permiso") = "administrador" then
%>

<script Language="VbScript">
usuario = "<% =usuario %>"
passw = "<% =contrasena %>"
<% rs0.Close %>
ventana = window.open("consultas.asp?usuario=" & usuario, "_self")
</script>
<% else
%>

<script Language="VbScript">
usuario = "<% =usuario %>"
passw = "<% =contrasena %>"
<% rs0.Close %>
ventana = window.open("reservacion.asp?usuario=" & usuario, "_self")
</script>

%>
<%
end if
end if
end if
%>

</body>
</html>

Adler · #6 (**permalink**) 14/11/2008, 14:27

Hola

¿Cuál es el error que te genera? ¿qué esperabas que hiciera y no hace?

Suerte

sjam7 · #7 (**permalink**) 16/11/2008, 00:50

pues para saber si es administrador debes tener un campo que lo indique para hacer la comparacion con este campo al ingresar

3LmI · #8 (**permalink**) 16/11/2008, 22:01

pues no me hace la comparacion de que es...
se supone que si es administrador me tiene que mandar a la pagina de consultas y si es usuario a la de reservaciones pero no lohace :S no se donde esta el error =(

espero su ayuda gracias!!!

ah y lo que dice sjam7 es muy cierto y si tengo el campo pero el problema que tengo no es ese... gracias!!!

Adler · #9 (**permalink**) 17/11/2008, 05:55

Hola

Podrías unificar las dos consultas en una

Código asp:

Ver originalsql = "SELECT usuario, password, permiso FROM usuarios WHERE  usuario= '"& usuario &"';"
 
if rs.eof then
'No existe usuario
else
if rs.fields("password") = ClaveUsuario then
if rs.fields("permiso") = "usuario" then
'Es usuario
else
'Es administrador
end if
else
'No existe password
end if
end if

Suerte

3LmI · #10 (**permalink**) 21/11/2008, 12:49

hola de nuevo, ya hice lo que Adler me dijo pero no me sale :S espero me puedan ayudar
me sigue diciendo que el password no es correcto aqui les dejo el codigo...

Código asp:

Ver original<html>
<head>
<title></title>
<style type="text/css">
<!--
.style1 {
    color: #000066;
    font-weight: bold;
    font-family: Cambria;
    font-size: 20px;
}
.style2 {font-size: 18px}
-->
</style>
</head>
<!--#include Virtual ="Reservaciones\connsql.asp"-->
<body topmargin="0" leftmargin="0">
 
<p align="center">&nbsp;</p>
 
<p align="center">&nbsp;</p>
 
<p align="center">&nbsp;</p>
 
<p align="center">&nbsp;</p>
 
<p align="center" class="style1 style2"><big>Autentificando ...</big></p>
<%
    Usuario = Request.Form("usuario")
    ClaveUsuario = Request.Form("password")
%>
        <script Language="VbScript">
            Usuario = "<% =Usuario %>"
            password = "<% =ClaveUsuario%>"
            msgbox  Usuario
            msgbox  password
        </script>
        <%
 
    sql = "SELECT * FROM usuarios WHERE  usuario= '"& Usuario &"'and password='"&Password&"';" 
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn
    if not rs.eof then
        
    Response.Write "<p align='center'><strong><font color='#000066'>Registrado </font></strong></p>"
     if rs.fields("permiso") = "usuario" then
        %>
            <script Language="VbScript">
            usuario = "<% =usuario %>"
            passw = "<% =contrasena %>"
            <% rs.Close %>
            ventana = window.open("reservacion.asp?usuario=" & usuario, "_self")
            </script>
    
        <%else%>
             <script Language="VbScript">
                usuario = "<% =usuario %>"
                passw = "<% =contrasena %>"
                <% rs.Close %>
                ventana = window.open("administrador.asp?usuario=" & usuario, "_self")
            </script>
            <% 
        end if
        
 
    else
        Response.Write "<p align = 'center'><strong><font color='#000066'>Usuario o Password Incorrectos</strong></font></p>"
    %>
        <script Language="VbScript">
            //Usuario = <% =Usuario %>
            //msgbox usuario & " ¡Usuario no registrado!", vbCritical
            a = window.open("index.asp?NumError=1&QueUsuario=" & Usuario, "_self")
        </script>
        <%
end if
%>
</body>
</html>

JuanRAPerez · #11 (**permalink**) 21/11/2008, 13:40

Cita:

Iniciado por JuanRAPerez

ummm
palabra reservada???'

ClaveUsuario = Request.Form("password")

...
if rs0.fields("password") = ClaveUsuario then
'ingresa
else
'error
'end if

suerte

al revisar el codigo de alder y el tuyo difieren.....

¿sera por eso?

haz como te indique y prueba

Adler · #12 (**permalink**) 21/11/2008, 13:49

Hola

1 Quizás no introduces el password correcto, revisa tu bd
2 En post anteriores ya se comento que estas usando palabras reservada en la bd "password", cámbialo por contrasena, pword, etc...

Suerte

3LmI · #13 (**permalink**) 26/11/2008, 13:11

hola ya entra ya me valida el password pero no me hace la validacion respecto a que tipo de usuario =(

if rs.fields("permiso") = "usuario" then <-------------- este if no me hace nada :S no se si esta mal se supone que permiso tiene que validar si es usuario o administrador

espero me puedan ayudar gracias...

Adler · #14 (**permalink**) 27/11/2008, 06:24

Hola

Podrías postear lo que tienes

Suerte

3LmI · #15 (**permalink**) 28/11/2008, 10:03

Aqui esta, pero solo como observacion tuve que subir el if del password al select por que solo asi me lo valida espero que eso afecte....

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

sql = "SELECT usuario, password, permiso FROM usuarios WHERE usuario= '"& Usuario &"'and password='"&ClaveUsuario&"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
if rs.eof then
'No existe usuario
Response.Write "<p align = 'center'><strong><font color='#000066'>No existe usuario o el password es incorrecto...</strong></font></p>"
%>
<script Language="VbScript">
msgbox " ¡Usuario o password incorrectos!"
a = window.open("index.asp", "_self")
</script>
<%
else

if rs.fields("permiso") = "usuario" then
'Es usuario
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
a = window.open("reservacion.asp", "_self")
</script>
<%
else
'Es administrador
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
ventana = window.open("administrador.asp","_self")
</script>
<%
end if
end if
end if

Adler · #16 (**permalink**) 28/11/2008, 13:03

Hola

Intentalo así

Código asp:

Ver originalif rs.eof then
    'No existe usuario
 Response.Write "<p align = 'center'><strong><font color='#000066'>No existe usuario o el password es incorrecto...</strong></font></p>"
    %>
        <script Language="VbScript">
            msgbox " ¡Usuario o password incorrectos!"
            a = window.open("index.asp", "_self")
        </script>
        <%
    else
 
    if rs.fields("permiso") = "usuario" then
    'Es usuario
        %>
            <script Language="VbScript">
            <% rs.Close %>
            msgbox "¡Bienvenido!"
            a = window.open("reservacion.asp", "_self")
            </script>
            <%
else
'Es administrador
            %>
             <script Language="VbScript">
                msgbox "¡Bienvenido!"
                ventana = window.open("administrador.asp","_self")
            </script>
            <% 
            end if
end if
rs.Close

Suerte

3LmI · #17 (**permalink**) 28/11/2008, 14:32

hola Adler, ya lo hice como tu me dijiste y los dos usuarios me entran a la misma opcion de administrador, sigo sin entender por que :(, no me valida la opcion de usuario...

JuanRAPerez · #18 (**permalink**) 28/11/2008, 22:51

depura

Cita:

else
response.write "permiso tipo: " & rs.fields("permiso")
response.end
if rs.fields("permiso") = "usuario" then

y cuentanos que trae permiso

3LmI · #19 (**permalink**) 01/12/2008, 11:45

Hola JuanRa
Hice lo que me dijiste, y si me manda el permiso de cada uno, ejemplo:
Tere es usuario y me manda el tipo de usuario
Elmi es administrador y me manda el tipo administrador...
Aun sigo sin encontrar la razon por la cual no entra :S gracias...

JuanRAPerez · #20 (**permalink**) 01/12/2008, 19:19

ummm
prueba

TipoPermiso = rs.fields("permiso")
if TipoPermiso = "administrador" then
response.write "es administrador"
else
response.write "es usuario"
end if
response.end

y dime que te imprime

3LmI · #21 (**permalink**) 02/12/2008, 10:06

Ahmmmmm
Que crees ahora me dice que los dos son usuarios :S

Adler · #22 (**permalink**) 02/12/2008, 12:22

Hola

Siguiendo con lo que te dijo JuanRa, prueba declarando el tipo de dato, ya que parece que siempre llega al else

TipoPermiso = CStr(rs.fields("permiso"))
if TipoPermiso = "administrador" then
response.write "es administrador"
else
response.write "es usuario"
end if
response.end

Suerte

3LmI · #23 (**permalink**) 03/12/2008, 10:16

Hola compañero =) ya probe con lo que me dices y nada, de hecho ya elimine la tabla, volvi a crearla y volvi a llenarlo y nada :S
me sigue enviando solamente una opcion como tu dices el else nada mas ... y como en el else tengo la opcion de usuario pues solo entra esa...

JuanRAPerez · #24 (**permalink**) 03/12/2008, 10:44

pegas tu código actual?

3LmI · #25 (**permalink**) 03/12/2008, 11:13

Okis este es mi codigo....

<%
Usuario = Request.Form("usuario")
ClaveUsuario = Request.Form("password")

sql = "SELECT usuario, password, permiso FROM usuarios WHERE usuario= '"& Usuario &"'and password='"&ClaveUsuario&"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
if rs.eof othen
'No existe usuario
Response.Write "<p align = 'center'><strong><font color='#000066'>No existe usuario o el password es incorrecto...</strong></font></p>"
%>
<script Language="VbScript">
msgbox " ¡El usuario no existe y/o Usuario o password incorrectos!"
a = window.open("index.asp", "_self")
</script>
<%
else
' response.end
' rs.fields("permiso") = TipoPermiso
TipoPermiso = CStr(rs.fields("permiso"))
if TipoPermiso = "administrador" then
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
a = window.open("administrador.asp", "_self")
</script>
<%
else
%>
<script Language="VbScript">
msgbox "¡Bienvenido!"
a = window.open("reservacion.asp","_self")
</script>
<%
end if
response.End
end if
rs.Close

%>

Adler · #26 (**permalink**) 03/12/2008, 12:10

Hola

La verdad es que tenía que mostrar un error en esta linea

if rs.eof OTHEN

Suerte

JuanRAPerez · #27 (**permalink**) 03/12/2008, 12:18

sabes (desde mi punto de vista) cuando usas <script Language="VbScript"> aveces da lios con las cosas que estas haciendo yo me dedique mejor a usar redirect (ademas creo que algunos navegadores no lo interpretaran)

Código asp:

Ver original<%
Usuario = Request.Form("usuario")
ClaveUsuario = Request.Form("password")
 
sql = "SELECT usuario, password, permiso FROM usuarios WHERE usuario= '"& Usuario &"'and password='"& ClaveUsuario &"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
if rs.eof othen
    'No existe usuario
    'podrias crear un CSS para poder enviar los errores de una forma iconografia o bonita al navegador
    response.write "<h1>¡El usuario no existe y/o Usuario o password incorrectos!<h1>"
else
    TipoPermiso = CStr(rs.fields("permiso"))
    'pongamos todo en minuscula no sea eso tambien este fallando
    TipoPermiso = lCase(TipoPermiso)
    if TipoPermiso = "administrador" then
        response.write "es administrador"
        'una vez validado en lugar de imprimir mandamos a la pagina que es correcta
        'response.redirect("administrador.asp")
    else
        response.write "es usuario"
        'response.redirect("reservacion.asp")
    end if
end if
rs.close
%>

suerte

3LmI · #28 (**permalink**) 03/12/2008, 12:58

Hola JuanRaPerez
Muchas gracias por tu ayuda, la verdad he logrado solucionar el problema =)
se te agradece de corazon =) ....
Te deseo lo mejor, que tengas un excelente dia y nuevamente gracias =)

Saludos desde Coatzacoalcos, Veracruz =)

JuanRAPerez · #29 (**permalink**) 03/12/2008, 15:31

Cita:

Iniciado por 3LmI

Hola JuanRaPerez
Muchas gracias por tu ayuda, la verdad he logrado solucionar el problema =)
se te agradece de corazon =) ....
Te deseo lo mejor, que tengas un excelente dia y nuevamente gracias =)

Saludos desde Coatzacoalcos, Veracruz =)

pues para eso estamos en foros del web para ayudarle a la gente

te sugiero eso:
+ trata de usarlo de esa forma
+ redirect en lugar de usar otras combinaciones de cosas

suerte