Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/06/2002, 13:09
jpalbox
 
Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 23 años
Puntos: 0
formulario en pagina asp

Tengo un script asp que mira si previamente has rellenado un formulario, si lo has rrellenado te manda a la siguiente pg sino te redirecciona a la primera pero el problema que yo le veo es q practicamente no se asp, se podria hacer la continuación del formulario y ademas poner un hiperbinculo en el response del asp, para que unicamente aparezca si se cumple la condicion?
Gracias.
Te muestro el codigo en asp
<%
dim rs
dim con
dim sql
'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 "index.htm"
Else
'Guardamos los datos del Form en variables.
usuario = Request.Form("usuario")
password = Request.Form("password")
'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>"
Else
Response.Write "<BR> Tu contraseña es incorrecta <B>"& usuario &"</B>"

'Limpiamos y cerramos.
con.Close
Set con = Nothing
End If
End If
End If
%>

Gracias. Nos vemos