Riconoscere utente dopo il login

[ettorpa]

Salve ragazzi,

Siccome mi avete sempre risolto tutti i miei problemi..nel senso che c'è sempre da imparare da voi...gradirei di nuovo un piccolo aiutino su questa questione:

vorrei che quando l'utente si logga la pagina mi mostrasse a video i seguenti campi del mio db: RagioneSociale,Indirizzo e Email...

nella pagina dove dovrebbe resituire i risultati ho inserito ovviamente queste righe :
<%response.write session("RagioneSociale")%><%response.write session("Indirizzo")%><%response.write session("Email")%

ma è nella pagina auth.asp che probabilmente mi sfugge qualcosa..



questa è la pagina auth.asp 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"),"","")

session ("user") = user

session ("RagioneSociale") = RagioneSociale
RagioneSociale = replace(request.querystring RagioneSociale = replace(request.querystring("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 & "'and RagioneSociale='"&RagioneSociale & "'"


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("miapagina.asp")

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


case "3"
session("login")="ok3"
Response.Redirect("miapagina3.asp")


case "4"
session("login")="ok4"
Response.Redirect("miapagina4.asp")

case "5"
session("login")="ok5"
Response.Redirect("miapagina2.asp")


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

end select


rs.close

conn.close

set rs=nothing

set conn=nothing


end if

%>

[rotteninside]

scusa ma i valori session("ragione_sociale") ecc... dove li prendi?

[ettorpa]

ciao rotte...ho modificato lo script...gli dai un'occhiatina?

[rotteninside]

<% 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"),"","") 
			 
			 session ("user") = user

		session ("RagioneSociale") = RagioneSociale
	RagioneSociale = replace(request.querystring RagioneSociale = replace(request.querystring("RagioneSociale"),"","")

            username=request("user") 

            password=request("password")

io avrei fatto una cosa del genere, ammesso che RagioneSociale provenga da un form :

session("RagioneSociale") = request.item("RagioneSociale")

oppure volendo utilizzare la variabile di RagioneSociale come hai fatti tu in questo modo :

RagioneSociale = replace(Request.Item("RagioneSociale"),"","")
session("RagioneSociale") = RagioneSociale

Però scusa, come mai nella replace sostituisci stringa vuota con stringa vuota???

[ettorpa]

rotte...scusami il campo RagioneSociale non proviene da un form ma bensì vorrei prelevarlo direttamente dal db...oppure potrei prelevarlo dal form di registrazione..che mi consigli?

[rotteninside]

Dipende da dove sono i dati che prelevi.
Da quello che posso immaginare tu accedi tramite una password ed un username ad un database che dovrebbe contenere i dati relativi all'utente. Quindi avrai anche una tabella che contiene la ragione sociale e tutto quelloche ti serve.
Se il uo utente ha un id, potresti filtrare sulla tabella che contiene i dati e ricavare quelli relativi al tuo utente.
Se hai un form di registrazione dove viene richiesto Ragione Sociale all'atto dell'iscrizione potrai prelevarlo da li, ma dopo suppongo che il tuo dato sarà presente nel db, quindi le volte successive dovreai prelevarlo da quello.

[ettorpa]

si rotte...la tabella del db è user...qui ci sono tutti i dati ovvero username,ragione sociale etc...


quindi dovrei prelevare i dati direttamente dal db

è sbagliata la mia query?

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

[ettorpa]

ti prego rotteninsideeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeee

[rotteninside]

Ero a pranzo...
Dunque, supponendo che il tuo form di login abbia i campi :
Username, Password

nella pagina che analizza i dati avrai:

Dim Username
Dim Pwd
Dim rs ' as recordset 
Username = Request.item("Username")
Pwd = Request.item("Password")
SQL = "Select * from user where "
SQL = SQL & "username = '" & Username &"' and "
SQL = SQL & "Password = '" & Pwd & "'"

a questo punto eseguiamo la query

set rs = server.createObject("Adodb.recordset")
rs.open SQL, connessione, 3, 3
if not rs.eof then
  session("RagioneSociale") = rs("RagioneSociale")
else
  response.write "Ripetere il login. Accesso non effettuato."
end if

[ettorpa]

rotte...non ho capito ancora come recuperare l'id.. visto che si trova in un altro data base