Salve ragazzi ho bisogno disperatamente di un aiuto...
Dovrei far riconoscere un utente dopo il classico login...
ho due pagine: "auth.asp" e "benvenuto.asp" e 2 db "regdat.mdb" e "admin.mdb".
la pagina auth.asp punta al db "admin.mdb" con tabella "user" e campi:RagioneSociale-UserName-Password-gruppo
la pagina benvenuto.asp punta al db "regdat.mdb" con tabella "user" e campi:RagioneSociale-Indirizzo-Email-città etc...
eppure la query è fatta bene ma purtroppo viene ignorata nella pagina "benvenuto.asp" e non mi restituisce niente..è vuota
dove sbaglio?????????????
aiutooooooooooooooooooooooooo
vi posto le due pagine:
---------------------
**auth.asp**
<%
option explicit
Dim conn, rs, username, ID, user, ragionesociale, password, sql
if (request("user")="" or request("password")="") then
Response.Redirect("errore.asp")
end if
user=replace(request.form("user"),"","")
ragionesociale = replace(request.form("ragionesociale"),"","")
session ("user") = user
session ("RagioneSociale") = RagioneSociale
'session ("Piva") = Piva
'session ("Email") = Email
RagioneSociale = replace(Request.Item("RagioneSociale"),"","")
session("RagioneSociale") = 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/dbadmin.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.Redirect("errore.asp")
end if
if not rs.eof then
session("ID_username") = rs("ID")
session("ID_RagioneSociale") = rs("ID")
select case rs("gruppo")
case "1"
session("login")="ok1"
Response.Redirect("benvenuto.asp")
case "2"
session("login")="ok2"
Response.Redirect("default_ecommb.asp")
case "3"
session("login")="ok3"
Response.Redirect("default_ecommc.asp")
case "4"
session("login")="ok4"
Response.Redirect("default_ecommd.asp")
case "5"
session("login")="ok5"
Response.Redirect("admin_pann.asp")
case "0"
session("login")="ok0"
Response.Redirect("errore.asp")
end select
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
-----------------------------------------------
***benvenuto.asp****
<%
option explicit
Dim conn, rs, ragionesociale, id, sql
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/regdat.mdb")
SQL = "Select * from user where id=" & cint(session("id_user"))
'Sql = "select * FROM user WHERE id = "& id &" ;"
set rs=Server.CreateObject("adodb.recordset")
Rs.Open Sql, Conn,3,1
if not rs.eof then
response.write "Benvenuto"
response.write ""
response.write "
" & rs("user") & "</p>"
response.write "
" & rs("RagioneSociale") & "</p>"
else
' record non trovato
end if
%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>benvenuto</title>
</head>
<body>
</p>
</body>
</html>
Rispondi quotando
