vb global.asa

<script language="vbscript" runat="server">
	Sub Application_OnStart
		Application("ActiveVisitors") = 0
		Application("TotalVisitors") = 0

		Application("SiteURL") = "http://slickcms/" 'full URL to site
	End Sub

	Sub Session_OnStart
		Application.Lock
		Application("ActiveVisitors") = (Application("ActiveVisitors") + 1)
		Application("TotalVisitors") = (Application("TotalVisitors") + 1)
		Application.UnLock
	End Sub

	Sub Session_OnEnd
		Application.Lock
		Application("ActiveVisitors") = (Application("ActiveVisitors") - 1)
		Application.UnLock
	End Sub
</script>
Syntax for global.asa settings file.

Updated: Saturday 9th October 2010, 10:44pm

There are 0 comments

Leave a comment of your own

Comments are currently closed.