% NewIP=Request.Servervariables("REMOTE_HOST") NewDate=day(now) & "/" & month(now)& "/" & year(now) & " " & formatdatetime(now, 3) Dim rscon Set rscon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") rscon.Mode = 3 rscon.Open "Provider=MICROSOFT.JET.OLEDB.4.0;Data Source=\\filer\Sites\NV318031\www.iiche.org.il\mdb_files\IIChE.mdb;" InsertQuery="INSERT INTO countr (c_ip, c_date) VALUES ('" & NewIP & "', '" & NewDate & "');" ' Response.Write(insertquery) rs.Open InsertQuery, rscon %>