<%
'-FSO HIT SAYAÇ, ASPPLUS.Net tarafından hazırlanmıştır. --------------------------------
Response.Expires = 0
Response.CacheControl = "no-cache" 
'---------------------------------------------------------------------------------------
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("aspplus_sayac_data.inc"), 1, TRUE)
aspplus_hitsayac=RS.ReadLine

If Request.Cookies("IPNO") <> Request.ServerVariables("remote_addr") Then
	aspplus_hitsayac=aspplus_hitsayac+1
	Set RS2 = FS.CreateTextFile(Server.MapPath("aspplus_sayac_data.inc"), TRUE) 
	RS2.WriteLine aspplus_hitsayac
	RS2.Close
	Set RS2=Nothing
    Response.Cookies("IPNO") = Request.ServerVariables("remote_addr")
	Response.Cookies("IPNO").Expires = Date() + 1
End If
'---------------------------------------------------------------------------------------
Response.Write "TZ: "&aspplus_hitsayac
'---------------------------------------------------------------------------------------
RS.Close
Set RS=Nothing
Set FS=Nothing
'---------------------------------------------------------------------------------------
%>