Salve ragazzi,
Qlc mi potrebbe dare un aiutino?...

ho la classica pagina di autenticazione user e password ma non riesco a far visualizzare tutti i dati dell'utente una volta loggato!

es: benvenuto "xxx" indirizzo”xxx” città”xx” etc..

so che si deve fare una session e prelevare i valori desiderati.

ho inserito nella pagina del form il seguente codice:
*****session ("user") = user*****

e poi nella pagina dove dovrebbe restituire i valori:

****<%response.write session("user")%****

Non mi serve prendere i valori dal modulo..cioè dalla casella user (in questo caso ottengo solo un campo..”la ragione sociale”) io invece ho bisogno di estrapolare piu’ campi dal database

************************************************** **********************
vi posto il codice:
<%

option explicit

Dim conn, rs, username, user, ragionesociale, password, sql


if (request("user")="" or request("password")="") then


Response.Redirect("errore.asp")


'response.write "INSERISCI I DATI DI NUOVO!"
end if



user=replace(request.form("user"),"","")
ragionesociale = replace(request.form("ragionesociale"),"","")
session ("user") = user
session ("utente") = ragionesociale


username=request("user")

password=request("password")


set conn=Server.CreateObject("adodb.connection")

conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/miodb.mdb")

sql="select * from user where username='" & username & "' and password='" & password & "'"


set rs=Server.CreateObject("adodb.recordset")

rs.open sql, conn


if rs.eof then

response.write "******DATI DI ACCESSO ERRATI******"


response.write "Reinseriscili, " & "<a href=javascript:history.back()>torna indietro</a>"

rs.close

conn.close

set rs=nothing

set conn=nothing


response.end

Response.Redirect("errore.asp")

end if


if not rs.eof then

select case rs("gruppo")
case "1"
session("login")="ok1"
Response.Redirect("prima.asp")

case "2"
session("login")="ok2"
Response.Redirect("seconda.asp")

case "0"
session("login")="ok0"
Response.Redirect("errore.asp")

end select


rs.close

conn.close

set rs=nothing

set conn=nothing


end if

%>