Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) ' Code that runs on application startup Application.Lock() Application("tusers") = 0 Application.UnLock() End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) ' Code that runs when a new session is started Dim tusers As Integer Application.Lock() tusers = Convert.ToInt32(Application("tusers").ToString) Application("tusers") = tusers + 1 Application.UnLock() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)