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