response.redirect

[stefanogrox]

Vorrei sapere quale sia il codice ASP per poter utilizzare il comando response.redirect e ricavare la destinazione da un db.

[maximum]

Se il redirect lo devi prelevare da un DB, devi eseguire, prima dello stesso una query sulla tua tabella in cui hai segnata la destinazione e poi eseguire il redirect.

strSQL = "SELECT Destinazione FROM Tabella_destinazione"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.Open strSQL, objConn <-- la tua connessione!

if not objrs.eof then
   response.redirect(objrs("Destinazione"))
else
   response.redirect("PagErrore.asp")
end if

[stefanogrox]

Grazie per la risposta, ma abbi pazienza non sono molto esperto.
Il codice già inserito, per la protezione delle pagina di un sito, è il seguente:

-------------------------------------------------
<%
Session("utente")=request.form("indirizzo")
Session("id")= request.form("cod")
nPagina=request.form("pag")
Dim Conn
Dim oRS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/fpdb/utenti.mdb")
SQL = "Select * From codici"
Set oRS = Conn.Execute(SQL)
while not oRS.EOF
If session("utente") = oRS("username") And session("id") = oRS("password") Then
oRS.Close
Conn.Close
Set oRS = Nothing
Set Conn = Nothing
Response.Redirect ("/C1/C1.asp")
end if
oRS.MoveNext
wend
oRS.Close
Conn.Close
Set oRS = Nothing
Set Conn = Nothing
Response.Redirect ("/index.asp")
%>
--------------------------------------------------------

e al posto della destinazione ("/C1/C1.asp"), voglio prelevare quella nella tabella codici.
Come devo adattare il codice che mi hai spedito?
Grazie.

[cavicchiandrea]

Cambia la riga in grassetto, chiaramente inserendo il campo della tabella codici.

<%
Session("utente")=request.form("indirizzo")
Session("id")= request.form("cod")
nPagina=request.form("pag")
Dim Conn
Dim oRS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/fpdb/utenti.mdb")
SQL = "Select * From codici"
Set oRS = Conn.Execute(SQL)
while not oRS.EOF
If session("utente") = oRS("username") And session("id") = oRS("password") Then
oRS.Close
Conn.Close
Set oRS = Nothing
Set Conn = Nothing
Response.Redirect (oRS("nomerecorset"))
end if
oRS.MoveNext
wend
oRS.Close
Conn.Close
Set oRS = Nothing
Set Conn = Nothing
Response.Redirect ("/index.asp")
%>

[stefanogrox]

GRAZIE!!!!!!!!!!!!!!!!!!!!!