duda con codigo asp

[gabo543]

hola amigo tengo una pregunta yo tengo un codigo de pass y user con database como lo puedo hacer para que la persona al ingresar su pass y user se muestre la informacion que ellos ingresaron anteriormente y tambien editarla si fuera posible este es el codigo que tengo..



pagina1.asp

<FORM ACTION="pagina2.asp" METHOD="post"><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="Ingresar">
</FORM>

pagina2.asp

<%
Dim usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basedatos.mdb")

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM tabla WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

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


eso seria lo que tengo es en base a una basede datos access....

muchas gracias

[ftabilo]

Hola, realmente si tu código funciona no entiendo bien cual es tu consulta, en todo caso, para lo que te entiendo que quieres se usa el Objeto Request y el Metodo Form() para guardar, y para mostrarlo el metodo Write().

nombre = Request.Form("nombre")
Response.Write(nombre)

¿Sera eso?, si nos puedes explicar mejor tu problema seria muy bueno, no te comprendo con claridad lo que quieres hacer.

Saludos

[acceso]

pagina1.asp

<FORM ACTION="pagina2.asp" METHOD="post"><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="Ingresar">
</FORM>

pagina2.asp

<%
Dim usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basedatos.mdb")

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM tabla WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Id_Usuario = Rs.fields ("Id_usuario")
Response.redirect ("Pagina3.asp?id_usuario= "&Id_Usuario&"")
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

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



pagina3.asp

Id_usurio= Request.querrystring ("Id_usuario")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basedatos.mdb")

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM tabla WHERE Id_usuario = '"& Id_usurio &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

lo que hace es:

cuando valida el usuario envia a la pagina.asp el id_usuario
y hay abre su base de datos y despliega sus datos ..
espero que te siva cualquier duda hasmelo en saber

[solracnauj21]

estoy deacuerdo con lo que dice acceso o bien si quieres hacerlo mas robusto utiliza cookies o sessiones

[gabo543]

muchas gracias por ayudarme con mi problema ya lo solucione encontre unos codigos de sesiones los tengo que modificar un poco muchas gracias..