21/07/2003, 06:07
|
| | | Fecha de Ingreso: julio-2003
Mensajes: 6
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| URGENTE .. Validar usuario y contraseña
Buenas, tengo este codigo para validar usuario y contraséña (copiado, claro):
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim usuario, password, Conn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a usuarios.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "usuarios.asp"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
'Conectamos a nuestra BD.
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "sigma"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM usuarios WHERE Planta = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, Conn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contraseña") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido a <B>"& usuario &"</B>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
%>
</body>
</html>
lo que quiero y no me sale por el puto response.redirect, es que una vez se haya verificado correctamente el usuario entre en la pagina principal de la aplicacion web y que ademas se pasen dos de los parametros de la consulta del codigo. |