Salve a tutti, il mio problema è questo: vorrei mostrare il nome utente all'utente appena loggato.
Al momento ho:
1 pagina "login.asp" con i soliti 2 campi Utente e Password.
1 pagina "elabora_login.asp" che controlla se nome utente e password sono all'interno di un DB access.
Se Utente e Password esistono, apre la pagina 4 "index.asp", altrimenti va a finire alla pagina di errore "errore.asp"
Premessa: la pagina index.asp contiene 2 frame html (menu, e elenco_lezioni)
Il problema è che non riesco a visualizzare nella pagina "elenco_lezioni.htm" il nome dell'utente appena loggato.
Nella pagina "index.asp" (e in tutte quelle dove voglio tenere aperta la sessione) ho inserito anche il seguente codice:
<%
if Session("Autenticato")<>"OK" then
Response.Redirect("../iscritti/login.asp")
end if
%>
(il listato di "elabora_login.asp" è questo)
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../fpdb/iscritti.mdb")
Dim sql
sql = "SELECT ID FROM Investigatore_privato WHERE nomeutente='" &nome_ut& "' AND password='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("../../corsi/ip/index.asp")
else
Response.Redirect("errore.asp")
end if
%>
Grazie a tutti in anticipo
Al momento ho:
1 pagina "login.asp" con i soliti 2 campi Utente e Password.
1 pagina "elabora_login.asp" che controlla se nome utente e password sono all'interno di un DB access.
Se Utente e Password esistono, apre la pagina 4 "index.asp", altrimenti va a finire alla pagina di errore "errore.asp"
Premessa: la pagina index.asp contiene 2 frame html (menu, e elenco_lezioni)
Il problema è che non riesco a visualizzare nella pagina "elenco_lezioni.htm" il nome dell'utente appena loggato.
Nella pagina "index.asp" (e in tutte quelle dove voglio tenere aperta la sessione) ho inserito anche il seguente codice:
<%
if Session("Autenticato")<>"OK" then
Response.Redirect("../iscritti/login.asp")
end if
%>
(il listato di "elabora_login.asp" è questo)
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../fpdb/iscritti.mdb")
Dim sql
sql = "SELECT ID FROM Investigatore_privato WHERE nomeutente='" &nome_ut& "' AND password='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("../../corsi/ip/index.asp")
else
Response.Redirect("errore.asp")
end if
%>
Grazie a tutti in anticipo