arkadaşlar bu aşağıdaki kodlar çalışır vaziyette ve tam istediğim gibi çalışıyor fakat bu her sayfa yenileyince 1 artıyor ben istiyorum ki artsın ama üst üste 5 kere sayfa yenileyince yani bir flood varsa artmasın bunu nasıl yapabilirim ..

<%
Response.Expires = -1
Response.CacheControl = "No-Store"
'---------------------------------------------------------------------------------------
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("Db/okumasay.inc"), 1, TRUE)
aspplus_hitsayac=RS.ReadLine

If Request.ServerVariables("remote_addr") Then

aspci_hitsayac=aspci_hitsayac+1

Set RS2 = FS.CreateTextFile(Server.MapPath("Db/okumasay.inc"), TRUE)
RS2.WriteLine aspci_hitsayac
RS2.Close
Set RS2=Nothing
Request.ServerVariables("remote_addr")
End If
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
RS.Close
Set RS=Nothing
Set FS=Nothing
'---------------------------------------------------------------------------------------
%>