Ho creato insieme ai vs. suggerimenti un accesso ad una pagina tramite un login , in questa pagina si trovano una query per far vedere ad ogni cliente i suoi dati.

Adesso mi occore che un solo utente entra in una pagina diversa da quella di default.
Vi allego il codice del login:

codice:
<%
'Creo la variabile Action
'ha come valore il campo act del form
Dim Action
Action = request.form("act")
'Creo la variabile PrimaPagina
'e la setto sulla mia prima pagina asp protetta
Dim PrimaPagina
PrimaPagina = "default.asp"
'se Action è vuota stampo il form
if Action = "" then
%>
<form method="POST" action="login.asp">
<input type="hidden" name="act" value="enter">
<table border="0">
<tr><td>User</td><td><input type="text" name="u" size="20"></td></tr>
<tr><td>Pass</td><td><input type="password" name="p" size="20"></td></tr>
<tr><td colspan="2"><input type="submit" value="Login"></td></tr>
</table>
</form>
<%
'se Action ha come valore "enter"...
elseif Action = "enter" then
'creo la variabile User
'con il valore del campo u del form
Dim User
User = request.form("u")
'creo la variabile Pass
'con il valore del campo p del form
Dim Pass
Pass = request.form("p")
'Se User e/o Pass è vuota stampo un errore
if (User = "" or Pass = "") then
response.write "Campo incompleto!"
response.end
'in caso contrario procedo alla verifica
else
'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("mdb-database\utenti_sito.mdb")
'Imposto la query ed apro il recordset
Dim Query, Rs
Query = "select * from UTENTI where user = '" & User & "' "&_
"and pass = '" & Pass & "'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query, Conn, 3, 3
'se nessun utente corrisponde stampo un errore
if Rs.EOF then
response.write "Spiacente! Login non corretto"
response.end
'in caso contrario imposto la mia session
'ed effettuo il redirect sulla prima pagina
else
Session("User") = User
Session("Pass") = Pass
Response.Redirect PrimaPagina
end if
'chiudo Rcordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
Set Conn= Nothing
end if
end if
%>
mentre questo e' la pagina default:

codice:
<%@ Language = VBScript %>
<% Option Explicit %>

<html>
<%
Dim Query1, Rs
'attenzione al posto di UTENTI ci metti la tabella dei REPORT la quale dovr� contenere il campo (colonna) user
Query1 = "select * from Report where user = '" & Session("User") & "'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query1, Conn, 3, 3
'se nessun utente corrisponde stampo un errore
if Rs.EOF or Rs.BOF then
response.write "Nessun report presente per questo utente"
response.end
else
Response.Write "Benvenuto "& Rs("User") &" qui trovi tutti gli interventi fatti per tuo conto
"
Response.Write "
"
Response.Write "<Table border=3 >"
Response.Write "<tr bgcolor=FF6600><td>Data Rich.</td ><td>Modello</td><td>Matricola</td><td>Difetto Lam.</td><td>Data Int.</td><td>Cartella Lav.</td></tr>"
Do While NOT Rs.EOF
Response.Write "<tr>"
Response.Write "<td bgcolor=FFCC66>" & Rs("DataCh") &"</td><td bgcolor=FFCC66> " & Rs("Modello") &" </td><td bgcolor=FFCC66>"& Rs("Matr") &"</td><td bgcolor=FFCC66>"& Rs("DifLamentato") &"</td><td bgcolor=FFCC66>" & Rs("DataFi") &"</td><td bgcolor=FFCC66> PDF"
Response.Write "</tr>"
Rs.Movenext
Loop
'chiudo Rcordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
Set Conn= Nothing
end if
%>
	
</body>
</html>
Mi date un consiglio come fare?