
31/05/2006, 08:57
|
| | Fecha de Ingreso: mayo-2006
Mensajes: 14
Antigüedad: 18 años, 11 meses Puntos: 0 | |
Redireccionar Login- Ayuda Urgente Hola Amigossssss. NECESITO POR FAVOR AYUDA URGENTEMENTE.GRACIAS DE ANTEMANO.
Partiendo del código que les pongo a continuación quiero que dependiendo del Tipo de usuario, éste acceda a una pagina específica.
En la tabla de access TABLAUSUARIOS tengo los usuarios : usuario1,usuariopreferente,administrador.
CODIGOOOOOOOOOOOOOO
<%
Dim usuario, password, oConn, RS
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basedatos.mdb")
sql = "SELECT * FROM tablausuarios WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%> |