|
<%
'//////////////////////////////////////////////
' Coded by Rawkmetal
' mail : Rawkmetal@hackersclub.net
'//////////////////////////////////////////////
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
%>
|
