esegui sql su area protetta una sola volta

[Prof_Mauri]

Ciao a tutti, dopo aver capito come raccogliere i dati degli utenti che accedono ad un'area riservata creata secondo il modello frontpage di aruba, vorrei stabilire che l' sql che inserisce i dati venga eseguita solo all'entrata nell'area protetta e non ogni volta che si passa per la pagina in cui ho messo l'sql
Come posso fare ?
Il codice che ho messo è questo :

<%
username=Session("uid")
Dim a
a= now()
%>
<%
set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\.....logon.mdb")
a = replace(a,"'","''")
IPClient=request.ServerVariables("REMOTE_ADDR")
Browser=request.ServerVariables("HTTP_USER_AGENT")
NomePagina=request.ServerVariables("SCRIPT_NAME")

sql = "INSERT INTO accessi "&_
"([data],[username],[ipclient],[browser],[paginavisitata]) "&_
"VALUES ('"& a &"','"& username &"','"& IPClient &"','"& Browser &"','"& NomePagina &"')"
%>
<%
OBJdbConnection.Execute(sql)
%>
<%
OBJdbConnection.Close
set OBJdbConnection = nothing
%>

[optime]

metti il codice subito dopo l'autenticazione positiva (che verosimilmente lì ci passi una volta sola)

[Prof_Mauri]

Scusa ma ho due domande :
1) in questo modello di area privata ho due pagine
-logon.inc
-logon.asp
se le conosci mi sapresti dire in quale dovrei inserire il codice?
2) l'autenticazione positiva?

[Prof_Mauri]

Ok, trovato, l'ho inserito nella pagina logon.asp subito dopo :

<%
  ' Was this page posted to?
  If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then
    ' If so, check the username/password that was entered.
    If ComparePassword(Request("uid"),Request("pwd")) Then
      ' If comparison was good, store the user name...
      Session("uid") = Request("uid")
%>

perchè di quì non si passa sempre ma solo per riaccedere all'area protetta

[optime]

optime!