Ciao a tutti,
stavo sviluppando una piccolissima area riservata molto semplice.
Ho però un problema che non so perchè (rimbambito parecchio) ma non riesco a risolvere!
Questo è il codice
---------------------------------
<%
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("utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOME_UTENTE='" &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("riservato.asp")
else
Response.Redirect("index.asp")
end if
%>
---------------------------------
Ora il problema è questo.
Sul DB (utenti.db) c'è anche la voce "pagina_link" che sarà diversa per alcuni gruppi di utenti.
Username: Pippo
Password: Pippo1
Pagina_link: prova.asp
Username: Pluto
Password: Pluto1
Pagina_link: prova1.asp
Username: Paperino
Password: Paperino1
Pagina_link: prova2.asp
E cosi via, ovviamente con delle ripetizioni sulle pagine.
Come faccio a sostituire il Response.Redirect("riservato.asp") con un Response.Redirect pagina_link ???
Grazie a tutti

Rispondi quotando