Tema: Error en ASP
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 13/04/2005, 07:37
Cony28
 
Fecha de Ingreso: abril-2005
Mensajes: 73
Antigüedad: 20 años
Puntos: 0
Aqui esta el codigo de pagina3

<%
Dim usuario, password, dBase, 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 dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then
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
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If
%>