line decor
  
line decor
 d
 
 
 
  
 
 
Base de Datos

 
 
 
Usuario
Password

 


 

  
           
<% Dim usuario, password, oConn, RS If Request.Form("usuario") = "" OR Request.Form("password") = "" then Response.Redirect "basedatos2.html" 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,"'","''") Set oConn = Server.CreateObject ("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("basedatos.mdb") 'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form. sql = "SELECT * FROM usuarios WHERE usuario = '"& usuario &"'" Set RS = Server.CreateObject ("ADODB.RecordSet") RS.Open sql, oConn 'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario. If (RS.EOF = true) then Response.redirect("incorrecto.asp") ElseIf RS.Fields("contrasena") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado. Response.redirect ("privado.asp") Else 'Otra cosa, seria cuando el password no es la que seleccionamos. Response.redirect("incorrecto.asp") End If RS.Close oConn.Close Set RS = Nothing Set oConn = Nothing End If %>