04/06/2002, 18:38
|
| | | Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Re: Entrada en una pagina rellenando previmente el for
probar.asp
</head>
<body BGCOLOR="#FF9F9F">
<%
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.htm
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "acceso.htm"
Else.
usuario = Request.Form("usuario")
password = Request.Form("password"
End If
'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("\jpalbox\db\usuarios.mdb" ;))
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM Personal 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 "<BR><B>"& usuario &"</B> Ese usuario no existe"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Else
If rs.Fields("password") = password then
Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B> <form action="altas.asp" METHOD="post" onsubmit="return fechavalida(this);">
<div><div align="center"><center><tabl e border="0" cellpadding="0" height="252">
</center></div><div align="center"><center><tabl e border="0" cellpadding="0" width="780">
<tr><tr>
<td width="62" height="28">Nombre:&nbsp; </td>
"" Resto del formulario""
<input type="submit" value="enviar"> <input type="reset" value="borrar" width="98" height="17"></p>
</center></div>
</form>"
Else
Response.Write "<BR> Tu contraseña es incorrecta <B>"& usuario &"</B>"
con.Close
Set con = Nothing
End If
End If
End If
%>
<p align="center"><a href="javascript:window.print()">Ante s de Enviar los datos imprimi.</a> </p>
</body>
</html>
|