quote:

---

Here is the contents of the global.asa file:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
 
Sub Application_OnStart
	Application("ActiveUsers") = 0
	Application("HighestToDate") = 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("ActiveUsers") > Application("HighestToDate") then
		Application("HighestToDate") = Application("HighestToDate") + 1
	end if
	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>

Here is what the code looks like that is on the front page of this forum:

<%
'## BEGIN Active Users CODE
Response.Write	"    <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Active Users: " & Application("ActiveUsers") & "  Visits Today: " & Application("VisitorsToday") & "</font><br>" & vbCrLf
Response.Write	"    <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Highest Active Users: " & Application("HighestToDate") & "  " & "</font><br>" & vbCrLf
'## END Active Users CODE
%>

---