Problem setting up Application-scoped counter in global.asa

[Wayfarer]

Hi,

I'm trying to set up a simple application-scoped counter in global.asa
to display on my webpages. When I call Application("Vi sitorCount") on
another page as shown:

<%
response.write "Visitor: " & Application("Vi sitorCount")
%>

I get nothing.

Can anyone help me out?

The code below shows the applicable part of what I have in my global.asa
file.

I'd really appreciate it if someone would help me out with this.

Thanks...

--- start code
SUB Application_OnS tart
Application("Vi sitorCount") = 0
end sub

SUB Session_OnStart
session("sql") = ""
session("query" ) = ""
'lock the application for concurrency reasons
Application.Loc k
Application("Vi sitorCount") = Application("Vi sitorCount") + 1
Application.UnL ock
end sub
--- end code
--
Wayfarer
Journeys: http://wayfarer.brinkster.net/contact.asp

[dlbjr]

Try this:

sub Application_OnS tart
Application("Vi sitorCount") = 0
end sub

sub Session_OnStart
session("sql") = ""
session("query" ) = ""
'lock the application for concurrency reasons
Application.Loc k
Application("Vi sitorCount") = CDbl(Applicatio n("VisitorCount ")) + 1
Application.UnL ock
end sub

-dlbjr

Discerning resolutions for the alms

[Bob Barrows]

Have you restarted the website since you added this code? I suspect the
VisitorCount is empty. In Session_OnStart , do this:

Application.Loc k
if len(Application ("VisitorCount" )) = 0 then
Application("Vi sitorCount") = 1
else
Application("Vi sitorCount") = CLng(Applicatio n("VisitorCount ")) + 1
end if
Application.UnL ock

HTH,
Bob Barrows

Wayfarer wrote:

Hi,

I'm trying to set up a simple application-scoped counter in global.asa
to display on my webpages. When I call Application("Vi sitorCount") on
another page as shown:

<%
response.write "Visitor: " & Application("Vi sitorCount")
%>

I get nothing.

Can anyone help me out?

The code below shows the applicable part of what I have in my
global.asa file.

I'd really appreciate it if someone would help me out with this.

Thanks...

--- start code
SUB Application_OnS tart
Application("Vi sitorCount") = 0
end sub

SUB Session_OnStart
session("sql") = ""
session("query" ) = ""
'lock the application for concurrency reasons
Application.Loc k
Application("Vi sitorCount") = Application("Vi sitorCount") + 1
Application.UnL ock
end sub
--- end code

[Wayfarer]

Thus spake Bob Barrows:

Have you restarted the website since you added this code? I suspect the
VisitorCount is empty. In Session_OnStart , do this:

Application.Loc k
if len(Application ("VisitorCount" )) = 0 then
Application("Vi sitorCount") = 1
else
Application("Vi sitorCount") = CLng(Applicatio n("VisitorCount ")) + 1
end if
Application.UnL ock

HTH,
Bob Barrows

Wayfarer wrote:

Hi,

I'm trying to set up a simple application-scoped counter in global.asa
to display on my webpages. When I call Application("Vi sitorCount") on
another page as shown:

snip

That did it. Thanks for your help!

--
Wayfarer
Journeys: http://wayfarer.brinkster.net/contact.asp