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
%>
Rispondi quotando
