Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/04/2003, 12:49
jpalbox
 
Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 23 años
Puntos: 0
usuario = Request.Form("usuario")


'Conectamos a nuestra BD.
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mdb-database/....mdb"))

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM usuario WHERE usuario='"&usuario&"'"
rs.Open sql, con

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If rs.EOF = True then
Response.Write "usuario incorrecto"

'Si el campo de la tabla es igual a nuestra variable
Else

.........

end if