Tengo un problema, tengo dos paginas llamadas
Sesion.asp y Sesion2.asp
la primera consiste en un formulario que contiene dos campos usuario y contraseña, lo que quiero hacer es como podria mostrar los datos en Sesion2.asp pero dependiendo del usuario que aya echo la sesion, por ejemplo tengo en mi base de datos mi tabla con los campos: id, user, password, nombre apellido
e imaginen que tengo dos registros:
id= 1; user=julio; password=pepe; nombre=Julio; apellidop=gonzalez
id= 2; user=cesar; password=xxxx; nombre=Antonio; apellidop=Perez
entonces al momento de que el la persona meta sus datos en el formulario ejemplo del primer registro user="julio" y passpwrd="pepe", entonces la pagina sesion2.asp quiero que me muestre el nombre y apellidop que serian Julio Gonzalez, o cosa contraria que si inician sesion con otro usuario que seria user="cesar" y password="xxxx" entonces que me muestre los datos de Antonio Perez.
¡Creo que si me di a entender!, acontinucacion les presento un sencillo codigo pero necesito completar eso que les comento, la verdad es que me URGE AYUDENMEEEEE...
<%
Dim user
Dim password
Dim strSQL
Dim sql
'Recuperar los campos
user = TRIM(Request.Form("user"))
password= TRIM(Request.Form("password"))
If user="" or password="" Then
Response.Redirect("sesion2.asp?msg=Error%20No%20Id entificado")
End if
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conexion.Open "Sesiones"
sql = "select * from Sesiones where user='" & user & "' and password='" & password & "'"
Conexion.Execute sql
RS.Open Sql, Conexion
If RS("password")=password and RS("user")=user Then
Session("autorizacion")=1
'Mostrar datos de ese usuario
strSQL = "SELECT Nombre, Apellidos FROM Sesiones"
Set objRS = Conexion.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
Else
Session("autorizacion")=-1
Session.Abandon()
Response.Redirect("sesion.asp")
End If
RS.Close
Set RS=Nothing
Conexion.Close
Set objRS = nothing
Set Conexion=Nothing
%>
</table>
PORFAVOR NECESITO AYUDA PROFESIONAL
Julio Cesar Gutierrez Quezada
[email protected]