<%
set ip=Request.ServerVariables("REMOTE_ADDR")
Zaman = Date
Saat = Time
if not ip = "193.110.208.178" then
Set Oconn=Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")
Oconn.open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath("db\user.mdb")
sql = "insert into bilgi(ip,zaman,Saat) values('"& ip &"' , '"& Zaman &"' , '"& Saat &"')"
ors.open sql,oconn
end if
%>
