G
george d lake
Hi,
I have a app that for now all it does is Sets an Application variable =0
on Application Start and then on Session Start it adds 1 to that current
value.
What does not work is the Session_End. There I do Application Var =
Application Var - 1
If I let the session time out (2mins) and refresh a second session
(different PC) it does not show the the correct value.
If I refresh the orginal one, then it +1
What am i dooing wrong?
Where is the code:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Application("MISUsers") = 0
Application("NatUsers") = 0
Application("GlobalUsers") = 0
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Fires when the session is started
If User.IsInRole("VYP\Global MIS") Then
Application("MISUsers") = Application("MISUsers") + 1
ElseIf User.IsInRole("VYP\Global Marketing") Then
Application("NatUsers") = Application("NatUsers") + 1
ElseIf User.IsInRole("VYP\Domain Users") Then
Application("GlobalUsers") = Application("GlobalUsers") + 1
End If
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Fires when the session ends
If User.IsInRole("VYP\Global MIS") Then
Application("MISUsers") = Application("MISUsers") - 1
ElseIf User.IsInRole("VYP\Global Marketing") Then
Application("NatUsers") = Application("NatUsers") - 1
ElseIf User.IsInRole("VYP\Domain Users") Then
Application("GlobalUsers") = Application("GlobalUsers") - 1
End If
End Sub
I have a app that for now all it does is Sets an Application variable =0
on Application Start and then on Session Start it adds 1 to that current
value.
What does not work is the Session_End. There I do Application Var =
Application Var - 1
If I let the session time out (2mins) and refresh a second session
(different PC) it does not show the the correct value.
If I refresh the orginal one, then it +1
What am i dooing wrong?
Where is the code:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Application("MISUsers") = 0
Application("NatUsers") = 0
Application("GlobalUsers") = 0
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Fires when the session is started
If User.IsInRole("VYP\Global MIS") Then
Application("MISUsers") = Application("MISUsers") + 1
ElseIf User.IsInRole("VYP\Global Marketing") Then
Application("NatUsers") = Application("NatUsers") + 1
ElseIf User.IsInRole("VYP\Domain Users") Then
Application("GlobalUsers") = Application("GlobalUsers") + 1
End If
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Fires when the session ends
If User.IsInRole("VYP\Global MIS") Then
Application("MISUsers") = Application("MISUsers") - 1
ElseIf User.IsInRole("VYP\Global Marketing") Then
Application("NatUsers") = Application("NatUsers") - 1
ElseIf User.IsInRole("VYP\Domain Users") Then
Application("GlobalUsers") = Application("GlobalUsers") - 1
End If
End Sub