
24/04/2003, 12:49
|
| | 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 |