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

er ciclo ndo stà???

yaro ha scritto:

er ciclo ndo stà???

appundo deve scorrere il db
prova con un ciclo di while

macho ha scritto:

vuLCan Karayan ha scritto:

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

Forse il problema risiede nelle lettere maiuscole e minuscole, prova con :

if ucase(nome_utente) = "PINCOPALLINO" then

Essiiiiiiiii! Grazie infinite!