Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Community Forums
 Code Support: ASP (Non-Forum Related)
 global.asa
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

wedont
Junior Member

Canada
344 Posts

Posted - 07 August 2001 :  13:51:13  Show Profile
I got the script here from Snitz, thought I got it right but it doesn't work ( no values displayed)
My "host" tells me that it's a coding error! Just spent a couple hours to figure it out but to no avail!

here's the global.asa file:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
Application("TodaysDate") = Date
Application("VisitorsToday") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20 ' minutes
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
if Application("TodaysDate") = Date then
Application("VisitorsToday") = Application("VisitorsToday") + 1
else
Application("TodaysDate") = Date
Application("VisitorsToday") = 1
end if
Application.UnLock
End Sub
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>


And here's the "call" from an asp page:


<p align="center"><%Response.Write "Active Users: " & Application("ActiveUsers") &" Visits Today: " & Application("VisitorsToday") %></p>


Any clues?

Thanks,


Wedont
The proud owner of a vintage:
snitz ver3.1 sr2
access 2k.

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 07 August 2001 :  17:29:37  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
Hmmm... I'd say your host doesn't support a global.asa...

I can't find any coding error (is this the script provided by Richard?).

Go to Top of Page

wedont
Junior Member

Canada
344 Posts

Posted - 07 August 2001 :  18:35:22  Show Profile
Yes,yes !

My host (readyhosting) claims to support global.asa
I put it in the root of a subweb, they said I could do that.
And after sending the code (as 'is' on this post)they answered that
it was a "coding error" ! And that's out of their "scope" ! (I don't blaim them!)

and yes it's from richard! but I noticed that the "post" he refers to is slightly different:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
Application("TodaysDate") = Date

End Sub

Sub Session_OnStart
If Application("VisitorsToday") = "" then
Application("VisitorsToday") = 0
end if
Session.Timeout = 10 ' minutes
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
if Application("TodaysDate") = Date then
Application("VisitorsToday") = Application("VisitorsToday") + 1
else
Application("TodaysDate") = Date
Application("VisitorsToday") = 1

end if
Application.UnLock
End Sub
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>

Wedont
The proud owner of a vintage:
snitz ver3.1 sr2
access 2k.
Go to Top of Page

Doug G
Support Moderator

USA
6493 Posts

Posted - 07 August 2001 :  23:26:12  Show Profile
I don't know if it matters, but I always add the parentheses on function calls. I know that if you leave them out in some InterDev DTC's you can get wierd results.

Sample: Application("TodaysDate") = Date()

I have a utility at www.pe.net/~dgorin/snitz/ that shows the application, session & server variables. I get good results by puttin a link in a page to open the utility in a new window.


======
Doug G
======
Go to Top of Page

mafifi
Junior Member

USA
308 Posts

Posted - 08 August 2001 :  12:49:04  Show Profile  Send mafifi an ICQ Message
Hmmm!!! I'm using the same code and hosting with "Readyhosting" and my site http://www.media-2000.com/forum/ and it seems to work just fine.

Thanks,

Mo
Go to Top of Page

work mule
Senior Member

USA
1358 Posts

Posted - 08 August 2001 :  14:06:41  Show Profile
I'm not sure if this would have anything to do with it, but I'm thinking that the Application_OnStart can't be kicked off until the virtual server is restarted. So if the Application variables don't exist, would that cause problems with the rest of the script? Probably not, huh?



The Work Mule Forums
The Writer Community
Go to Top of Page

mafifi
Junior Member

USA
308 Posts

Posted - 08 August 2001 :  18:28:11  Show Profile  Send mafifi an ICQ Message
Here is my Global.asa file and it works fine on Readyhosting.



<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application("ActiveUsers") = 0
Application("TodaysDate") = Date

End Sub

Sub Session_OnStart
If Application("VisitorsToday") = "" then
Application("VisitorsToday") = 0
end if
Session.Timeout = 10 ' minutes
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
if Application("TodaysDate") = Date then
Application("VisitorsToday") = Application("VisitorsToday") + 1
else
Application("TodaysDate") = Date
Application("VisitorsToday") = 1
end if
Application.UnLock
End Sub

Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

</SCRIPT>





Thanks,

Mo
Go to Top of Page

wedont
Junior Member

Canada
344 Posts

Posted - 08 August 2001 :  21:09:17  Show Profile
Thanks every one,
Mafifi, I'm trying your script, Just gonna find out tomorow! when the server's reboot will be done!(midnight as far as I know for readyhosting !)

Thanks


Wedont
The proud owner of a vintage:
snitz ver3.1 sr2
access 2k.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.3 seconds. Powered By: Snitz Forums 2000 Version 3.4.07