login

[kyo1982]

hola amigos

tengo un problemita, tengo una pagina de login, en el cual el usuario se ingresa a traves de su username y su password, pero yo necesito que cuando el entre aparezca en la pagina de inicio el codigo de la persona, pero no se como hacer para que me la tire.

en la tabla usuario esta el codigo_persona, username y password, espero me ayuden

gracias

[univercity]

revisa si tu codigo graba alguna cookie, si es así solo tienes que rescatar su cookie...

usuario = Request.cookies("tu_cookie")

y abrés los datos desde la bd

Sql = "Select * from tu_tabla where username =' "& usuario &"'"

--------------------------------------------------


La otra puede sre que cuando redirecciones envia el dato mediante string

Response.Redirect "pagina_inicial.asp?usuario="&usuario&""

y en la Pagina_inicial.asp , lo rescatas...

Usuario = Request.querystring("usuario")


Espero te sirva de algo.
Slds.

[kyo1982]

no tengo ninguna cookie y el response no me sirvio.

[univercity]

pon tu codigo de login...

[kyo1982]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/galope.asp" -->
<%
Dim EMPRE
Dim EMPRE_numRows
Set EMPRE = Server.CreateObject("ADODB.Recordset")
EMPRE.ActiveConnection = MM_galope_STRING
EMPRE.Source = "SELECT * FROM dbo.empresas "
EMPRE.CursorType = 0
EMPRE.CursorLocation = 2
EMPRE.LockType = 1
EMPRE.Open()

EMPRE_numRows = 0
%>
<%
' *** Validate request to log in to this site.

'Response.Redirect "galope.asp?cod_cliente="&cod_cliente&""

MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("login"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="galope.asp"
MM_redirectLoginFailed="loginoff.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_galope_STRING
MM_rsUser.Source = "SELECT usuario, pass, id_empresa,ultimo_acceso"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.empresas WHERE usuario='" & Replace(MM_valUsername,"'","''") &"' AND pass='" & Replace(Request.Form("password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
Session("MM_UserID") = MM_rsUser("id_empresa")

If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization ).Value)

Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If

MM_rsUser("ultimo_acceso") = now
MM_rsUser.update


MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If

[univercity]

Puedes hacer esto:
Modifica esta linea...
MM_redirectLoginSuccess="galope.asp"
por esta...
MM_redirectLoginSuccess="galope.asp?Usuario="&(MM_ valUsername)&""


y lo otro y mas facil aún es recuperar el valor de la session en la pagina galope.asp, pero no lo he echo nunca así asi es que no me se la sisntaxis, pero prueba con...

Usuario = Session("MM_Username")

Response.write Usuario

[kyo1982]

ya te entendi universiti, pero el campo que quiero mostrar no es el username es el codigo_persona, es como si hiciera esta rutina.

si el username y el pasword son iguales mostrar el codigo_persona..

espero me aya explicado...

gracias por tu tiempo.

[univercity]

Si ok. tambien te entendí, pero teniendo el el nombre de usuario en la pagina de entrada, ya puedes armar una llamada a la BD para extraer el Codigo_persona...

' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("./bdwine/tuBD.mdb"))

Sql = "Select * From empresas where usuario='"& Usuario &"'"
Rst.Open Sql,cnn,3,3

Lo_que_buscas = rst("codigo_persona")
Response.Write Lo_que_Buscas

Slds.

[kyo1982]

Gracias university por toda tu ayuda; ya lo logre hacer con ideas tuyas y un par mias, lo mjero es que ya lo saque.

gracias.