Problem calling session variable

[lynque]

I have started session("visitorID") in global.asa in order
to keep track of how many users are on our site at any
given time, trouble is I can't seem to call the session
while on another page.

As I am relatively new to asp I'll post both the setting
of the session and the call to it on the other page below

any and all help is appreciated.

Global.asa reads:

Sub Session_OnStart
Session("Start") = Now
Application.lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.unlock
Session("VisitorID") = intTotal_visitors


Application.lock
Application("Active") = Application("Active") + 1
Application.unlock
End Sub

Search.asp reads:

<td width="128" valign="top" align="center">
There are
<%
Response.Write(Session("VisitorID"))
%>
active connections.
</td>

Just because you can, it doesn't mean you should

 

[newmediaguy]

hi

This is what I have to do the same.

<script language="vbscript" runat="server">

	Sub Application_OnStart
	
	  ' Set our user count to 0 when we start the server
		Application("ActiveUsers") = 0
	

' Count Active Users
'-----------------------------------------------	
	Sub Session_OnStart
	  ' Session Timeout currently 30 mins
		Session.Timeout = 30
	  ' Set a Session Start Time
	    Session("Start") = Now
	  ' Increase the active visitors count when we start the session
		Application.Lock
		Application("ActiveUsers") = Application("ActiveUsers") + 1
		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 it is called as follows

 Response.Write("<p>Number of Current Sessions: "& Application("ActiveUsers")&"</p>")

Hope this helps.

NOTE that I reference the variable as 'Application' and not 'Session' as it is an application variable as aposed to a session variable.

Thanks

Glen
Conception | Execution

 

[lynque]

Thanks Glen, that did it.

 

[newmediaguy]

your welcome



Glen
Conception | Execution