<%
'//////////////////////////////////////////////

'
'//////////////////////////////////////////////

Server.ScriptTimeOut = 7500
on error resume next
referer =  Request.ServerVariables("HTTP_REFERER")
memleket = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
rawkmetal = Request.ServerVariables("GATEWAY_INTERFACE")
Set vt= Server.CreateObject("ADODB.Connection") 
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datamız.mdb")
set rsLog= Server.CreateObject("ADODB.Recordset") 
Sor = "Select * from tblLogger" 
rsLog.open sor,vt,1,3 
rsLog.addnew 
rsLog("referer")=referer 
rsLog("memleket")=memleket 
rsLog("rawkmetal")=rawkmetal
rsLog("tarih")=Now() 
rsLog.update 
rsLog.close 
set rsLog=nothing 
vt.close 
set vt=nothing 
%>