%
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
%>
IIChE Home Page