Variabile persa in un Form al cambio pagina

[Rob2002]

Salve,
sto realizzando una semplice pagina di login che verifica ad inizio pagina se il login è stato effettuato.
Questa pagina ASP è includa in più pagine per cui se effettuo il login su una quando paddo alle altre perdo il valore selle variabili. Vi posto l'intera pagina:

<%Response.Buffer="true"%>
<% if Session("ragione") <> "" then
response.write(Session("ragione"))
dim ragione
ragione = Session("ragione")
ragione = Request.QueryString("ragione")
response.write(ragione)
response.end()
end if
%>

<%
if request.form("u_name") <> "" or request.form("pwd") <> "" then

Dim fromURL
fromURL = Request.ServerVariables("HTTP_REFERER")

dim user, pass
user = request.form("u_name")
pass = request.form("pwd")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & server.mappath("database/db.mdb") & "; Persist Security Info = False"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from clienti where pwd = '" & pass & "' and email= '" & user & "'", conn , 3, 3

if not(rs.eof) then 

session("ragione")= rs.fields("ragione")
session("piva") = rs.fields("piva")
session("persona") = rs.fields("persona")
session("provincia") = rs.fields("provincia")
session("telefono") = rs.fields("telefono")
session("cellulare") = rs.fields("cellulare")
session("email") = rs.fields("email")
session("comune") = rs.fields("comune")
session("indirizzo") = rs.fields("indirizzo")
session("civico") = rs.fields("civico")
session("cap") = rs.fields("cap") 

rs.close 
conn.close 
set rs=nothing 
set conn=nothing
end if
end if

 %>
<form id="form1" name="form1" method="post" action="<%=fromURL%>">
  <label>
  Email
  <input name="u_name" type="text" id="u_name" size="20" maxlength="40" />
  </label>
  <label>Password
  <input name="pwd" type="password" id="pwd" size="20" maxlength="20" />
  </label>
  <label>
  <input type="submit" name="Submit" value="Invia">
  </label>
</form>

Mi aiutate .. por favor!

[Roby_72]

Spiega cosa vorresti ottenere perché non si capisce.

Roby

[Rob2002]

E' semplicemente una pagina di login che includo in altre pagine.
Vale a dire se l'utente è autenticato mi deve dare una cosa del tipo:
Response.Write("utente").

Fatto è che non riesce a capire quando l'utente è autenticato e quindi resetta le variabili alla prossima visualizzazione (caricamento pagina).

[Rob2002]

Ho migliorato lo script pulendolo un pò, ma non va.. non va...

Questa pagina, che si chiama in_login.asp, viene inclusa nella Home. Serve ad autenticarsi e la stessa pagina è inclusa nel resto del sito.
Vuol dire che una volta autenticato l'utente rimane connesso fino al logout.

Problema:
quando questa pagine viene inclusa nelle altre del sito non riconosce la condizione

if c_ragione <> "" then

e non capisco perchè!

riposto lo script migliorato.... forse!

<%Response.Buffer=true%>
<%
c_ragione = Request.QueryString("c_ragione")

if c_ragione = "" then

Dim fromURL
fromURL = Request.ServerVariables("HTTP_REFERER")

if request.form("u_name") <> "" or request.form("pwd") <> "" then

dim user, pass
user = Replace(request.form("u_name"),"'","''")
pass = Replace(request.form("pwd"),"'","''")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & server.mappath("database/db.mdb") & "; Persist Security Info = False"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from clienti where pwd = '" & pass & "' and email= '" & user & "'", conn , 3, 3

if rs.eof = false then 

dim c_ragione
Session("c_ragione")= rs.fields("ragione")
c_ragione = Session("c_ragione")

Session("piva") = rs.fields("piva")
Session("persona") = rs.fields("persona")
Session("provincia") = rs.fields("provincia")
Session("telefono") = rs.fields("telefono")
Session("cellulare") = rs.fields("cellulare")
Session("email") = rs.fields("email")
Session("comune") = rs.fields("comune")
Session("indirizzo") = rs.fields("indirizzo")
Session("civico") = rs.fields("civico")
Session("cap") = rs.fields("cap") 
Session("pwd") = rs.fields("pwd")

Response.Write("
")
Response.Write("Benvenuto:"& UCASE(c_ragione) & "")

rs.close 
conn.close 
set rs=nothing 
set conn=nothing

else
Response.Write("
")
Response.Write("Benvenuto:"& UCASE(c_ragione) & "")
end if
end if
end if
%>
<form id="form1" name="form1" method="post" action="<%=fromURL%>">
  <label>
  Email
  <input name="u_name" type="text" id="u_name" size="20" maxlength="40" />
  </label>
  <label>Password
  <input name="pwd" type="password" id="pwd" size="20" maxlength="20" />
  </label>
  <label>
  <input type="submit" name="Submit" value="Invia">
  </label>
</form>

chi mi può aiutare?
Grazzzzie.