Consulta a base de datos access

[Carcharhinus]

Hola foro buen dia,
Para empezar, no se programacion. Lo que estoy intentado hacer es una pagina que contenga los campos de User y Password para validar el acceso a otra pagina. La pagina de Login ya la tengo, lo que no se es como validar al usuario en la base de datos hecha en access. Como realizar la consulta al momento de dar clic en el boton "login" o "enviar" y una vez hecha dicha consulta mostrar la pagina siguiente o enviar el error.
Tengo la base de datos, Hyper sencilla, solo ocupo 2 campos, user y password, esta hecha en acces, no quiero que me arroje datos, simplemente que valide que el usuario y/o contraseña existe n y mostrar la pagina siguiente.
Saludos a todos.

[Owen-Bonilla]

Te recomiendo leer las FAQs de "ASP CLASICO", hay vienen varios ejemplos. De manera rápida te pongo un ejemplo, donde, en caso de logearte correctamente, iniciaras una sesion de "x" tiempo.


PARTE DEL CÓDIGO DE PAGINA HTML
* menu.asp es la página a donde te va a redirigir el Formulario (form)

<form method="POST" action="menu.asp">
<table align="center" border="0" width="19%">
<tr>
<td width="76" align="right" height="35"><b>
<font face="Arial" size="2">Usuario</font></b></td>
<td height="35" align="center">
<input type="text" name="User" size="24" style="font-family: Arial; font-size: 8pt; letter-spacing: 1pt; border: 2px solid #003366"></td>
</tr>
<tr>
<td width="76" align="right"><b>
<font face="Arial" size="2">Password</font></b></td>
<td>
<p align="center">
<input type="password" name="password" size="24" style="font-family: Arial; font-size: 8pt; letter-spacing: 1pt; border: 2px solid #003366"></td>
</tr>
<tr>
<td width="76" align="center">&nbsp;</td>
<td>
<p align="center">
<input type="submit" value="Enviar" name="B1" style="font-size: 8pt; font-family: Arial; letter-spacing: 2pt; color: #000000; font-weight: bold; border: 4px double #006600; background-color: #6FCE6F"></td>
</tr>
</table>


</form>

VALIDACION DE USUARIO Y PASSWORD

<%
if request.form("user") = "" then
response.redirect "index.asp"
%>

<%else

Dim usuario
Dim password


usuario=replace(request.form("user"),"'","")
password=replace(request.form("password"),"'","")

Path=Server.MapPath("DB\usuariosDB.accdb")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & Path
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM Niveles WHERE Usr='"&usuario&"' AND Psw='"&password&"'"
rs.Open sql, ConexionBD


if not rs.eof then


session("autorizacion")=1

response.redirect "menu.asp" // En caso se usuario y password ser Ok, me manda a esta otra pagina

end if

session("autorizacion")=-1

end if
rs.close
set rs=nothing
ConexionBD.close
set ConexionBD=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
response.redirect "index.asp?msg=Usuario%20o%20password%20incorrecta "
end if
%>

Espero te sirva.
Saludos

[Carcharhinus]

Muchas gracias,
Owen-Bonilla
Consultare las las FQS y tu codigo, gracias nuevamente....

[Fajardo23]

Como puedo crear un campo alfanumerico y ala vez sea autonumerico en access apenas voy a empezar a crear base pero nececito que el id sea asi, y cpmp puedo hacer preguntas en un foro no encuento la opcion





saludos