Application("TodaysDate2") = DateAdd("h",3,vbShortDate)
.
.
.
if Application("TodaysDate2") = DateAdd("h",3,vbShortDate) then
    Application("VisitorsToday") = Application("VisitorsToday") + 1
else
    Application("TodaysDate") = Date
    Application("TodaysDate2") = DateAdd("h",3,vbShortDate)
    Application("VisitorsToday") = 1
end if

quote:

---

As for the variable constant, can you give me an example of your thoughts?

---

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'################## START Snitz Active Users Lite ######################################
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
'################## End Snitz Active Users Lite ######################################
</SCRIPT>

<script language="VBScript" runat="Server">
'################## START Snitz Active Users Lite ###################################

'###############################################################################
'## Edited by NiteOwl								
'## File name is Global.asa to be located in the ROOT of your web		
'## to be used with the Active-Users application				
'################################################################################
'## Default of this program is running on a server located 3 hours ahead of me.
'## This is changed with the file named last-update.txt The text file needs to          
'## have one default entry of (in my case)
'## 10/13/2003 02:58:00 AM
'## The script checks this date, compares it to see if its >24hrs and if so
'## overwrites the current entry in the txt file with the current date and time and 
'## also runs whatever process I have specified. If the date and time is not yet due
'## the process continues to check.
'################################################################################

Sub Application_OnStart()
	Application("SessionCount") = 0
	Application("ActiveUsers") = 0
	Application("HighestToDate") = 0
	Application("VisitorsToday") = 0
End Sub

Sub Session_OnStart()
	Session.Timeout = 20 '## minutes
	Session("Start") = Now
	Application.Lock
	Application("SessionCount") = Application("SessionCount") + 1
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	
	if Application("ActiveUsers") > Application("HighestToDate") then
		Application("HighestToDate") = Application("HighestToDate") + 1
	end if
		Application("VisitorsToday") = Application("VisitorsToday") + 1
		Application.UnLock
	
	'## Check the file every 5 visits cuts down on server resource's
	'## you can increase or decrease this depending on the activity tou your web.
	if Application("SessionCount") > 5 Then
		Application.Lock
			Application("SessionCount") = 0
		Application.Unlock
			Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
			Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath("last-update.txt"))
			MyFileValue = OpenMyFile.ReadLine
			OpenMyFile.Close
		'## the date in the last-update.txt file must be greater than 24 hours
		if DateDiff("h",MyFileValue,NOW) > 24 Then
			Application.lock
				'#### Insert Apps you want to Run
				Application("VisitorsToday") = 1
	       			'#### Insert Apps you want to Run
	       		Application.Unlock
        			Set WriteMyFile = ObjMyFile.CreateTextFile(Server.MapPath("last-update.txt"))
				WriteMyFile.WriteLine(NOW)
				WriteMyFile.Close
		end if
	end if
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
'################## End Snitz Active Users Lite ######################################
</SCRIPT>