Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/01/2002, 11:55
Murphy
 
Fecha de Ingreso: enero-2002
Mensajes: 12
Antigüedad: 23 años, 3 meses
Puntos: 0
redireccionamiento tras autentificacion

Hola,soy un novato en ASP QUE quiero hacer lo siguiente:
A través de un formulario se debe poner un nombre de usuario y password que nos permitira acceder a una web.
Logicamente no se podra acceder a esta web directamente cuando no se han introducido el nombre y password.
Lo tengo hecho pero el problema surge cuando son correctos el nombre y password, entonces no sé como redireccionar a la pagina que quiero ver sin que me vuelva a pedir otra vez el nombre y contraseña.
Cuando no son correctos, no hay problema, me funciona bien.
Adjunto el codigo para ver si me podeis echar una mano.
Muchas gracias.

<%
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
Dim usuario, password, oConn, RS
'Guardamos los datos del Form en variables.
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\basedatos.mdb")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM basedatos WHERE usuario='"&usuario&"'"
RS.Open sql, oConn, 1, 1
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
ElseIf RS.Fields("password") = password then
Response.Write "<BR>Bienvenido <B>"& usuario &"</B>"
Response.Redirect("http://www24.brinkster.com/ecomur/decisioninicial.asp")
'Otra cosa, seria cuando el password no es la que seleccionamos.
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>