Butun sayfaların içerisine şu kodu ekle:
<%
pgeNme = Request.ServerVariables("PATH_INFO")
LogTo = (pgenme)
'LogTo = ("/site/sayac/" + pgeNme)
CounterFile = Server.MapPath(LogTo + ".txt")
Set xFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = xMC.Readline
set xFS = Nothing
usercnt = usercnt + 1
Set xFS = CreateObject("Scripting.FileSystemObject")
set xRC = xFS.CreateTextFile (CounterFile, 1, 0)
xRC.WriteLine usercnt
Set xRC = Nothing
SayacGoster = usercnt
%>
Bu kod ziyaretçi sayısını alıp dosya ismiyle bir txt dosyasına kaydediyor.
Örneğin dosya adı index.htm ise bu sayfanın ziyaretçi sayılarını index.htm.txt dosyasına kaydediyor. Eğer sayacı sayfada herhangi bir yerde göstermek istersen herhangi bir yere de
<%=sayacgoster%>
eklemen yeterli.