Optime,
In questo modo, mi funziona tutto, però non mi riporta poi la session=username una volta loggato.
codice:
<%
option explicit
Dim conn, rs, user, password, sql
'****QUESTA PARTE FA SOLO UN CONTROLLO SE SONO STATI INSERITI
'****LA USER E LA PWD
'****LASCIA QUESTA PARTE COSì
'****VEDI PIù GIù
if (request("user")="" or request("password")="") then
response.write "INSERISCI I DATI DI NUOVO!"
end if
user=request("user")
password=request("password")
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/db/db.mdb")
sql="select * from user where username='" & username & "' and password='" & password & "'"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql, conn
'*****DOPO AVER FATTO UN CONTROLLO SUL DATABASE
'*****E NON AVER TROVATO NIENTE
'*****CHIUDO LA CONNESSIONE
'*****E FACCIO LA REDIRECT
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
Session("username")=username
'****TI HO TROVATO NEL DATABASE
if not rs.eof then
select case rs("gruppo")
'case "1"
' session("login")="ok1"
'Response.Redirect("form_upload.asp")
case "2"
session("login")="ok2"
Response.Redirect("admin_pn.asp")
case "3"
session("login")="ok3"
Response.Redirect("stampa_rma.asp")
case "4"
session("login")="ok4"
Response.Redirect("stampa_rma2007.asp")
'case "5"
' session("login")="ok5"
'Response.Redirect("areadatabase6.asp")
'case "6"
' session("login")="ok6"
'Response.Redirect("utility.asp")
'case "7"
' session("login")="ok7"
'Response.Redirect("form_upload2.asp")
case "0"
session("login")="ok0"
Response.Redirect("nonseiabilitato.asp")
end select
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
Invece con quest'altra pagina, mi riporta la session ma non ho le select...e quindi avevo pensato di unire le 2 pagine.
codice:
<%
if len(session("id_utente")) = 0 then
'Prelevo i dati dal pannello di Login
username = request("username")
password = request("password")
'Effettuo il controllo
strsql = "select id, username, password from utenti where username = '" & username & "' and password = '" & password & "'"
set rs = conn.execute(strsql)
if not rs.eof then
session("id_utente") = rs("id")
session("id_utente") = rs("username")
else
response.redirect "panel.asp"
end if
rs.close
set rs = nothing
'END...
end if
%>
Rispondi quotando
