For this mod you need the following.
First, you need a global.asa file ( this file MUST be in your root directory )
If you already have that you need to add this
<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>
Then you need to add this to where ever you want the info to show
<%Response.Write "Active Users: " & Application("ActiveUsers") &" Visits Today: " & Application("VisitorsToday") %>
http://www.ugfl.net/forums
Edited by - big9erfan on 09 May 2001 23:43:33
Topic Locked
Posted - 09 May 2001 : 23:22:00
