Software Consulting

Investments, Life Insurance and Living Benefits

 

<%= PageHits %>

<% Public Function PageHits Dim oFS, oCountFile Dim sCountFilePath Dim iCount On Error Resume Next sCountFilePath = "d:\wwwroot\counters\bayside.cnt" Set oFS = Server.CreateObject("Scripting.FileSystemObject") Set oCountFile = oFS.OpenTextFile(sCountFilePath, 1, True) If Not oCountFile.AtEndOfStream Then iCount = CLng(oCountFile.ReadAll) Else iCount = 0 End If oCountFile.Close Set oCountFile = Nothing iCount = iCount + 1 Set oCountFile = oFS.CreateTextFile(sCountFilePath, True) oCountFile.Write iCount oCountFile.Close Set oCountFile = Nothing Set oFS = Nothing PageHits = iCount End Function %>