Author |
Topic |
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 21:17:38
|
Are you kidding, this is great, I have learned a lot and it is peaking an interest. Not sure if that is good or bad! grin
Is it ok to leave this line the way it is?
Sub Session_OnStart Session.Timeout = 20 '## minutes Session("Start") = DateAdd("h",3,Now()) |
-=NiteOwl=-
|
Edited by - NiteOwl on 28 September 2003 21:20:09 |
|
|
The Impact
Junior Member
Australia
398 Posts |
Posted - 28 September 2003 : 21:28:42
|
Glad that you've learnt from this topic.
Problems and errors aren't as useless as them seem.
That session variable doesn't really need to be changed as it really has no job to carry out so you might even be able to remove it. I'd leave it in there as it is if your code is working fine though !
Nice job ! |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 21:28:52
|
whoops, its now displaying like this:
Active Users: 6 / Visits Today: 6 Highest Active Users: 6
All numbers rise together. grin |
-=NiteOwl=-
|
|
|
The Impact
Junior Member
Australia
398 Posts |
Posted - 28 September 2003 : 21:45:22
|
Can you try this ? I think that code may be right so close your browser windows which are displaying your site. Don't go to your site for 25 mins or so. Then go back in and check to see if anything has incremented.
Hopefully all works well ! |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 21:46:40
|
Mind you maybe the numbers rising together makes sense, I will give it a bit of time to settle. |
-=NiteOwl=-
|
|
|
The Impact
Junior Member
Australia
398 Posts |
Posted - 28 September 2003 : 21:53:13
|
Good idea. Got a site address I could have a look at ? |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 22:15:53
|
Looks like they are all still going together, :) www.bcfmwu-forum.com |
-=NiteOwl=-
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 28 September 2003 : 22:25:30
|
It is still possible to have numbers like this, but how many Active Users do you have online now ? (don't look at this, look at the AU mod). Also, the code that prints these details, what does it look like now ? |
|
|
The Impact
Junior Member
Australia
398 Posts |
Posted - 28 September 2003 : 22:25:55
|
I've signed up, could you please accept my registration or create a test users so I can take a look in the forum. Want to check your AU page. Thanx ! |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 28 September 2003 : 22:33:51
|
Looks like the number/s go up, but not down. |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 22:39:42
|
ok, your up
I made change to the session Start and tried using the vbshort as opposed to the Now but all it does is reset al the numbers and starts over. I almost looks like it goes up in multiples of two. |
-=NiteOwl=-
|
Edited by - NiteOwl on 28 September 2003 22:48:35 |
|
|
The Impact
Junior Member
Australia
398 Posts |
Posted - 28 September 2003 : 22:58:32
|
Ok, I'm looking around and am prety sure that it's not working. |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 28 September 2003 : 23:21:39
|
NiteOwl, it looks like your global.asa is fine, it's what you are doing with these details that needs investigating. It seems the numbers only ever go up, and are all the same number. Do you know how many active users to expect ? |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 28 September 2003 : 23:24:21
|
Active users would be somewhere in the neighbourhood of 650 per day |
-=NiteOwl=-
|
Edited by - NiteOwl on 29 September 2003 23:16:08 |
|
|
NiteOwl
Junior Member
Canada
403 Posts |
Posted - 29 September 2003 : 00:36:56
|
well, I am trying the following: grin and holding my breath!
==============================================================================
Sub Application_OnStart
Application("ActiveUsers") = 0
Application("HighestToDate") = 0
Application("VisitorsToday") = 0
Application("TodaysDate") = DateAdd("h","-3",vbShortDate)
End Sub
Sub Session_OnStart
Session.Timeout = 20 '## minutes
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application("ActiveUsers") > Application("HighestToDate") then
Application("HighestToDate") = Application("HighestToDate") + 1
end if
if Application("TodaysDate") = DateAdd("h","-3",vbShortDate) then
Application("VisitorsToday") = Application("VisitorsToday") + 1
else
Application("TodaysDate") = DateAdd("h","-3",vbShortDate)
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
============================================================================ |
Edited by - NiteOwl on 12 October 2003 19:28:34 |
|
|
Topic |
|