<% Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If isEmpty(Session("blnCounterSet")) = True Then lngVisitorNumber = lngVisitorNumber + 1 Session("blnCounterSet") = True End if Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing response.Write("") Response.Write(lngVisitorNumber) response.Write("") %>