Whistling in the wind

This is a multi-part message in MIME format.

------=_NextPart_000_1C37_01C72CE6.E7BEF460
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

The subject says it, I think.

I have a hit counter on my page below
The code is
Hit Counter:
where '_fpclass/hit_count.inc' is

<%
'Dimension variables
Dim fsoObject 'File System Object
Dim filObject 'File Object
Dim tsObject 'Text Stream Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Dim cntDigit 'Holds the digit displayed in the counter

'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("_private/index.asp.cnt"))

'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream

'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)

'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1

'Create a new visitor counter text file over writing the previous one
Set tsObject =
fsoObject.CreateTextFile(Server.MapPath("_private/index.asp. cnt"))

'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)

'Reset server objects
Set fsoObject = Nothing
Set filObject = Nothing
Set tsObject = Nothing

'Display the hit count as text
' Response.Write(lngVisitorNumber)

'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
' Display the graphical hit count
cntDigit = Mid(lngVisitorNumber, intWriteDigitLoopCount, 1)
Response.Write(" Response.Write(cntDigit & ".gif""")
Response.Write(" alt=""" & cntDigit & """>")
Next
%>

What I am wondering is:
Why does the count increment by 3 every time I visit the Guestbook and then
return to the Home Page ?
The Guestbook button is

/>

Guestbook

Even clicking Home increments it by 2
The Home button is



Home

Visiting my other web site and then returning does the same thing
(increments it by 2).
This button is



Trevor and Carole's
Home Page

Is there some way I can only increment the counter when the site
(http://trevorl.mvps.org/) is visited for the first time?
And going to somewhere else and then returning will not increment it?

--
Cheers,
Trevor L.
[ Microsoft MVP - FrontPage ]
MVPS Website: http://trevorl.mvps.org/
----------------------------------------

------=_NextPart_000_1C37_01C72CE6.E7BEF460
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable



charset=3Diso-8859-1">

Re: Whistling in the wind

Put the code that increments the count in the Session_OnStart sub in
global.asa.

Also, you should look into using Application.Lock while writing to your text
file.

Bob Lehmann

"Trevor L." wrote in message
news:uc2THrILHHA.3668@TK2MSFTNGP02.phx.gbl...
> The subject says it, I think.
>
> I have a hit counter on my page below
> The code is
> Hit Counter:
> where '_fpclass/hit_count.inc' is
>
> <%
> 'Dimension variables
> Dim fsoObject 'File System Object
> Dim filObject 'File Object
> Dim tsObject 'Text Stream Object
> Dim lngVisitorNumber 'Holds the visitor number
> Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit
count
> Dim cntDigit 'Holds the digit displayed in the counter
>
> 'Create a File System Object variable
> Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
>
> 'Initialise a File Object with the path and name of text file to open
> Set filObject =
fsoObject.GetFile(Server.MapPath("_private/index.asp.cnt"))
>
> 'Open the visitor counter text file
> Set tsObject = filObject.OpenAsTextStream
>
> 'Read in the visitor number from the visitor counter file
> lngVisitorNumber = CLng(tsObject.ReadAll)
>
> 'Increment the visitor counter number by 1
> lngVisitorNumber = lngVisitorNumber + 1
>
> 'Create a new visitor counter text file over writing the previous one
> Set tsObject =
> fsoObject.CreateTextFile(Server.MapPath("_private/index.asp. cnt"))
>
> 'Write the new visitor number to the text file
> tsObject.Write CStr(lngVisitorNumber)
>
> 'Reset server objects
> Set fsoObject = Nothing
> Set filObject = Nothing
> Set tsObject = Nothing
>
> 'Display the hit count as text
> ' Response.Write(lngVisitorNumber)
>
> 'Loop to display graphical digits
> For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
> ' Display the graphical hit count
> cntDigit = Mid(lngVisitorNumber, intWriteDigitLoopCount, 1)
> Response.Write(" > Response.Write(cntDigit & ".gif""")
> Response.Write(" alt=""" & cntDigit & """>")
> Next
> %>
>
> What I am wondering is:
> Why does the count increment by 3 every time I visit the Guestbook and
then
> return to the Home Page ?
> The Guestbook button is
>
> height="40"
> />

> Guestbook
>
> Even clicking Home increments it by 2
> The Home button is
>
>

> Home
>
> Visiting my other web site and then returning does the same thing
> (increments it by 2).
> This button is
>
>

> Trevor and Carole's
Home Page
>
> Is there some way I can only increment the counter when the site
> (http://trevorl.mvps.org/) is visited for the first time?
> And going to somewhere else and then returning will not increment it?
>
> --
> Cheers,
> Trevor L.
> [ Microsoft MVP - FrontPage ]
> MVPS Website: http://trevorl.mvps.org/
> ----------------------------------------
>

Re: Whistling in the wind

Bob Lehmann wrote:
> Put the code that increments the count in the Session_OnStart sub in
> global.asa.
>
> Also, you should look into using Application.Lock while writing to
> your text file.
>
> Bob Lehmann

Thanks, Bob

This appears to have worked. However, I tried this once before and the next
time I went into the site, the Hit Counter wasn't even displaying.
(That is, if I recall correctly, this code" Hit Counter:

didn't even display
*Hit Counter*

Maybe I did something wrong last time, so I think I will wait for the time
out period (15 minutes ?) and try again with my fingers crossed

--
Cheers,
Trevor L.
[ Microsoft MVP - FrontPage ]
MVPS Website: http://trevorl.mvps.org/
----------------------------------------