Session Variables

[vulmarjunior]

Olá.

Estou com a seguinte dúvida:

Quando crio um sistema de login através do dreamweaver MX ele cria automaticamente um Session Variable MM_Username.

Gostaria de saber como acrecentar outras variáveis de seção no script login. Exatamente onde declará-las dentro do script.

Ex: A vaiavel MM_Username armazena o username do usuário que está logado. Além disso queria outras variáveis que armazenasse outros dados que estão presentes no Banco de Dados.

[vulmarjunior]

O código é o seguinte, é um código de autenticação de usuário

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/pontocom.asp" -->

<%

' *** Validate request to log in to this site.

MM_LoginAction = Request.ServerVariables("URL")

If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString

MM_valUsername=CStr(Request.Form("usuario"))

If MM_valUsername <> "" Then

MM_fldUserAuthorization=""

MM_redirectLoginSuccess="carregando.asp"

MM_redirectLoginFailed="erro.asp"

MM_flag="ADODB.Recordset"

set MM_rsUser = Server.CreateObject(MM_flag)

MM_rsUser.ActiveConnection = MM_pontocom_STRING

MM_rsUser.Source = "SELECT login, senha"

If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization

MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"

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

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.Close

Response.Redirect(MM_redirectLoginSuccess)

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginFailed)

End If

%>

Ele foi feito pelo dreamweaver mx.

Não sou um expert em ASP mas consegui descobrir que a variável de seção MM_valUsername tem o seu valor retirado do formulário de Login.

Só que eu quero declarar outras varáveis de seção, só que estas me retornariam dados do usário que estão presentes no Banco de Dados.

A minha dúvida é como e onde delcarar essa variaveis e como faze-las retornar dados do banco de dados.

[Micheletti]

Junior, vou colocar você onde possam responder mais rápido.

Movido!!!