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