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("VisitorCount") on
another page as shown:

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

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_OnStart
Application("VisitorCount") = 0
end sub

SUB Session_OnStart
session("sql") = ""
session("query") = ""
'lock the application for concurrency reasons
Application.Lock
Application("VisitorCount") = Application("VisitorCount") + 1
Application.UnLock
end sub
--- end code
--
Wayfarer
Journeys: http://wayfarer.brinkster.net/contact.asp

[dlbjr]

Try this:

sub Application_OnStart
Application("VisitorCount") = 0
end sub

sub Session_OnStart
session("sql") = ""
session("query") = ""
'lock the application for concurrency reasons
Application.Lock
Application("VisitorCount") = CDbl(Application("VisitorCount")) + 1
Application.UnLock
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.Lock
if len(Application("VisitorCount")) = 0 then
Application("VisitorCount") = 1
else
Application("VisitorCount") = CLng(Application("VisitorCount")) + 1
end if
Application.UnLock

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("VisitorCount") on
another page as shown:

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

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_OnStart
Application("VisitorCount") = 0
end sub

SUB Session_OnStart
session("sql") = ""
session("query") = ""
'lock the application for concurrency reasons
Application.Lock
Application("VisitorCount") = Application("VisitorCount") + 1
Application.UnLock
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.Lock
if len(Application("VisitorCount")) = 0 then
Application("VisitorCount") = 1
else
Application("VisitorCount") = CLng(Application("VisitorCount")) + 1
end if
Application.UnLock

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("VisitorCount") on
another page as shown:

snip

That did it. Thanks for your help!

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