Salve a tutti.
Sto cercando disperatamente di effettuare un redirect in base al nome dell'utente.
Vorrei che all'inserimento di un determinato Nome Utente (autenticato) si venisse reindirizzati ad una determinata pagina.
Una cosa elementare ma non ci riesco, sigh...
Premetto che l'accesso funziona alla perfezione ma che vengo sempre ridirezionato alla pagina riservato.asp senza alcuna segnalazione di errore.
Chi mi da una dritta?
Grazie in anticipo.
_ CODICE LOGIN.ASP _
<%
Dim nome_utente
Dim pass
nome_utente = 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("/mdb-database/utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" & nome_utente & "' 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"
if nome_utente = "pincopallino" then
Response.Redirect("riservatoPincoPallino.asp")
else
Response.Redirect("riservato.asp")
end if
else
Response.Redirect("errore.asp")
end if
%>
Sto cercando disperatamente di effettuare un redirect in base al nome dell'utente.
Vorrei che all'inserimento di un determinato Nome Utente (autenticato) si venisse reindirizzati ad una determinata pagina.
Una cosa elementare ma non ci riesco, sigh...
Premetto che l'accesso funziona alla perfezione ma che vengo sempre ridirezionato alla pagina riservato.asp senza alcuna segnalazione di errore.
Chi mi da una dritta?
Grazie in anticipo.
_ CODICE LOGIN.ASP _
<%
Dim nome_utente
Dim pass
nome_utente = 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("/mdb-database/utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" & nome_utente & "' 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"
if nome_utente = "pincopallino" then
Response.Redirect("riservatoPincoPallino.asp")
else
Response.Redirect("riservato.asp")
end if
else
Response.Redirect("errore.asp")
end if
%>