<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:\Inetpub\database\users.mdb" sql="INSERT INTO activity (date_time,email,ip_address,user_action)" sql=sql & " VALUES " sql=sql & "('" & Now() & "'," sql=sql & "'" & Session("email") & "'," sql=sql & "'" & Request.ServerVariables("REMOTE_ADDR") & "'," sql=sql & "'" & Session("action") & "')" if Session("action")<>"" then conn.Execute sql conn.close end if %>