area riservata multiutente

[sergiodigir]

Salve a tutti, il mio problema è questo: ho creato un pagina risevata areariservata.asp alla quale si accede loggandosi. Fino a qui tutto ok funziona, ma, nella pagina riservata vorrei che i dati visualizzati siano quelli personali dell'utente che si è loggato. In pratica ho un database con 2 tabelle, una tabella "anagrafica" con i dati personali più account e pass e l'altra "biglietti" con i dati personali di ognuno. Nella tabella biglietti c'è un campo che ho legato all'id della prima tabella "idnome".. Il codice asp del login è di seguito, c'entrano forse le variabili session e trasportarsi un dato con esse? Non sono un programmatore esperto ma con un pò di applicazione e qualche suggerimento prezioso che potreste darmi forse riuscirei a risolvere il problema. Grazie di cuore a chi mi potrà aiutare

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim user
Dim pass
Dim conn
Dim rst
Dim strSQL

'Leggiamo i dati immessi nel form di login
user = Replace(Request.Form("username"),"'","""")
pass = Replace(Request.Form("password"),"'","""")

'Apriamo la connessione col database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/lotteria1.mdb")
'Impostiamo la query
strSQL = "SELECT * FROM anagrafica " & _
"WHERE (((username)='" & user & _
"') AND ((password)='" & pass & "'));"

'Apriamo il recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open strSQL, conn

'Verifichiamo se ha trovato nel database i dati di login
if rst.BOF and rst.EOF then
Session("LoginStatus") = false
Response.Redirect("index.asp")
else
Session("LoginStatus") = true
Response.Redirect("areariservata.asp")
end if

'Liberiamo la memoria
rst.close
set rst = nothing
conn.close
set conn = nothing
%>

[lucavizzi]

if rst.BOF and rst.EOF then
Session("LoginStatus") = false
Response.Redirect("index.asp")
else
Session("LoginStatus") = true
Response.Redirect("areariservata.asp?user="&user)
end if


poi in areariservat.asp

user=Request.querystring("user")

SQL="select * from Anagrafica where user='"&user&"'"

ecc.

in alternativa puoi usare le variabili di sessione, penso siano più adatte al caso specifico:

if rst.BOF and rst.EOF then
Session("LoginStatus") = false
Response.Redirect("index.asp")
else
Session("LoginStatus") = true
Session("utente")=user
Response.Redirect("areariservata.asp")
end if

poi in area riservata.asp

user=Session("utente")

SQL="Select... ecc.