Needs Help With Invisible Page Counter

<%



Function fncPageViewCounter(ByVal strTextCounterFile)



' Increments a page view text file containing 1 line with the numbers of page views on it.

' Depending upon how your host has implemented FSO, it may error out on first execution.

' Refreshing the page should clear the error



     Dim objFSO           ' FileSystemObject

     Dim objTS            ' TextStreamObject

 

     Dim strFileName      ' Counter text File Name

     Dim intOldCount

     Dim intNewCount

   

 

     strFileName = Server.MapPath(strTextCounterFile)

 

  

     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  

     If objFSO.FileExists(strFileName)  Then

          Set objTS = objFSO.OpenTextFile(strFileName, 1)

     Else

          Set objTS = objFSO.CreateTextFile(strFileName, True)

     End If

     

     If Not objTS.AtEndOfStream  Then

          intOldCount = objTS.ReadAll

     Else

          intOldCount = 0

     End If

  

     objTS.Close

    

     intNewCount = intOldCount + 1

    

    

 ' Write intNewCount value back to text file

  

     Set objTS = objFSO.CreateTextFile(strFileName, True)

     objTS.Write intNewCount

  

     objTS.Close

     Set objFSO = Nothing

     Set objTS = Nothing

     

    fncPageViewCounter = intNewCount



End Function







'Determine the page the footer is currently included in

'and strip the .asp extension to name the counter

'

'to increment the page counter for that page



dim strPageID



strPageID = Replace(Request.ServerVariables("PATH_INFO"), ".asp", "") & ".txt"



%>



<!--

Include these tags on the page so the browser doesn't

show the page from it's cache which wouldn't increment the 

page counter.

    <META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">

    <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">

    <META HTTP-EQUIV="EXPIRES" CONTENT="0">

-->



<div align="center" style="color:#000000; font-size:75%;">

<% If Lcase(Request.QueryString("counter")) = "y"  OR Lcase(Request.QueryString("TestFlag")) = "yes"  Then %>

    <p class="countertext"><%=fncPageViewCounter(strPageID)%></p>

    <% Else

        fncPageViewCounter(strPageID)

        End if

    %>

</div>