Entrada en una pagina rellenando previmente el for

jpalbox · #1 (**permalink**) 04/06/2002, 18:20

Hola tengo el siguiente problema tengo una pagina acceso.htm que recoge el nombre de usuario y contraseña y lo pasa a otra probar.asp (probable que no este bien hecha) q mira, si he rellenado los campos del formulario de acceso.htm y si no los he rellenado me redirecciona a acceso.htm si los he rellenado mira en una base de datos, y si esta paso a la pagina probar.asp. Hasta ahi bien si unicamente la pagina probar.asp tiene un pequeño mensaje en el response pero el problema surge cuando yo quiero poner la continuacion del formulario y hiperbinculo en la pagina probar.asp Me da el siguiente error

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/jpalbox/probar.asp, line 38

Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B> <form action="altas.asp" METHOD="post" onsubmit="return fechavalida(this);">
------------
Todo esto biene para evitar que a la pagina probar asp puedas entrar sin haber puesto tu nombre de usuario y contraseña si podeis ayudarme os lo agradecere. Gracias. A continuacion os pongo el codigo

acceso.htm

<body background="image/step.jpg">

<form ACTION="probar.asp" METHOD="post">
<div align="center"><center><p&gt ;&nbsp;</p>
</center></div><div align="center"><center><p&gt ;<br>
<b>Usuario:</b> <input NAME="usuario" SIZE="12"><br>
<b>Contraseña:</b> <input NAME="password" SIZE="12"><br>
<br>
<input TYPE="Submit" VALUE="Enviar"> </p>
</center></div>
</form>

sigue abajo

jpalbox · #2 (**permalink**) 04/06/2002, 18:38

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&quot ;))
'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>