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