codice:
Dim autenticato
if rs.eof then
autenticato = false
else
nome_societa = Session("nome_societa")
tipo_accesso = Session("tipo_accesso")
Session("Id") = RS("id")
autenticato = true
pagina = RS("pagina").value

--> sql insert tabella tab_log
inserisci nome utente, data, ora, IP e tutto quello che ti serve per il log

end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
dove ti ho evidenziato, fai un INSERT nela tabella del log
con i dati che ti servono, come nome utente, data ora, ip ecc.
luca