Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/06/2009, 10:03
joseantonim
 
Fecha de Ingreso: junio-2009
Mensajes: 14
Antigüedad: 15 años, 10 meses
Puntos: 0
¿como pasar una variable a otra página?

Hola,

Soy nuevo en la progrmación ASP, y tengo un problema, tengo un codigo para logearme tras verificar en una base de datos, pero una vez logeado, me evia a la página privada, pero quiero poder recuperar en esta página el nombre de ususario que se escribió en el formulario.

Alguien me puede ayudar, os paso mi codigo para ver como lo puedo encajar.

Gracias de antemano.

Código asp:
Ver original
  1. <&#37;
  2. Dim usuario, password, oConn, RS
  3. 'Primero nos fijamos si ambos campos fueron completados.
  4. 'Si no se cumple, redireccionamos a login.html
  5. If Request.Form("usuario") = "" OR Request.Form("password") = "" then
  6.    Response.Redirect "login.html"
  7. Else
  8.    'Guardamos los datos del Form en variables y evitamos la comilla simple
  9.    usuario = Trim(Request.Form("usuario"))
  10.    password = Trim(Request.Form("password"))
  11.    usuario = Replace(usuario,"'","''")
  12.    password = Replace(password,"'","''")
  13.  
  14.    'Conectamos a nuestra BD.
  15.    Set oConn = Server.CreateObject ("ADODB.Connection")
  16.    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("basedatos.mdb")
  17.  
  18.    'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
  19.    sql = "SELECT * FROM usuarios WHERE usuario = '"& usuario &"'"
  20.    Set RS = Server.CreateObject ("ADODB.RecordSet")
  21.    RS.Open sql, oConn
  22.  
  23.    'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
  24.    If (RS.EOF = true) then
  25.       Response.redirect("incorrecto.asp")
  26.    ElseIf RS.Fields("contrasena") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
  27.       [COLOR="red"]'Aqui debería introducir el codigo pero me he vuelto loco probado y no lo logro.[/COLOR]
  28.       Response.redirect ("privado.asp")      
  29.    Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
  30.       Response.redirect("incorrecto.asp")
  31.    End If
  32.  
  33.    'Limpiamos y cerramos.
  34.    RS.Close
  35.    oConn.Close
  36.    Set RS = Nothing
  37.    Set oConn = Nothing
  38. End If
  39. %>

Última edición por joseantonim; 27/06/2009 a las 13:31