Log di un'area riservata

[FaBi0nE]

Ciao a tutti, ho un piccolo problema.
Ho un'area riservata semplice semplice di cui vorrei fare il log della gente che effettua il login.

Vi posto il codice, mi potete aiutare?

--------------------
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/database.mdb")
Dim sql
sql = "SELECT ID,pagina FROM Utenti WHERE NOME_UTENTE='" &nome_ut&_
"' AND PASSWORD='" &pass& "'"

Dim rs
Set RS = cn.execute(SQL)

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
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect pagina
else
Response.Redirect("default2.asp")
end if
%>
--------------------

In questo modo funziona l'accesso ma ovviamente non fa il log.
Ho creato nel database una tabella (denominata tab_log) con i campi "id", "nome_utente", "ip", "data".

Come faccio a memorizzare questi 4 dati nella tabella tab_log?

Grazie dell'aiuto a tutti!!

[FaBi0nE]

Ragazzi vi chiedo scusa ma girando poi per il forum sono riuscito a trovare la soluzione e ad adattarla allo script.
Grazie a tutti lo stesso!

[lucalicc]

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