<%
if left(Request.ServerVariables("HTTP_REFERER"),len(website_url))<> website_url then
set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pw99_webstats.mdb")
db.Open connect
sql = "select count(datum) as eintraege from stats where datum = '"&date&"'"
set rs = db.execute(sql)
if cint(rs("eintraege"))=0 then
sql = "insert into stats (datum, visits) values('"&date&"', 1)"
db.execute(sql)
else
sql = "update stats set visits = visits + 1 where datum = '"&date&"'"
db.execute(sql)
end if
ref = trim(Request.ServerVariables("HTTP_REFERER"))
if len(ref)>0 then
sql = "insert into refer (refer) values ('"& ref &"')"
db.execute(sql)
end if
rs.close
db.close
set rs = nothing
set db = nothing
end if
%>
BİLGİ YARIŞMASI