Web Development

Public Class Global
    Inherits System.Web.HttpApplication

    Protected Shared m_ActiveUsers As Integer

#Region " Component Designer Generated Code "

    Public Sub New()
        MyBase.New()

        InitializeComponent()

    End Sub

    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

    Public Shared ReadOnly Property ActiveUsers() As Integer
        Get
            Return m_ActiveUsers

        End Get

    End Property

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = 0
        Application.UnLock()

    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = m_ActiveUsers + 1
        Application.UnLock()

    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires upon attempting to authenticate the use
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when an error occurs
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = m_ActiveUsers - 1
        Application.UnLock()

    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application ends
    End Sub

End Class

Private Sub Page_Load(ByVal sender As System.Object,_
                           ByVal e As System.EventArgs) Handles MyBase.Load

        lblVisitors.Text = Global.ActiveUsers.ToString + " Visitors"

End Sub

<script><!--
function ChangeRB(toPlayer)
{
	document.helpout.rbPlayer.checked = toPlayer;
	document.helpout.rbNew.checked = !toPlayer;
}
--></script>
<script for="ddlPlayer" event="onfocus"><!-- 
ChangeRB (true);
--></script>
<script for="cbExistAsGM" event="onfocus"><!--
ChangeRB (true);
--></script>
<script for="cbExistAsTO" event="onfocus"><!--
ChangeRB (true);
--></script>
<script for="tbFullName" event="onfocus"><!-- 
ChangeRB (false);
--></script>
<script for="tbNick" event="onfocus"><!--
ChangeRB (false);
--></script>
<script for="tbEmail" event="onfocus"><!--
ChangeRB (false);
--></script>
<script for="tbLocation" event="onfocus"><!--
ChangeRB (false);
--></script>
<script for="cbNewAsGM" event="onfocus"><!--
ChangeRB (false);
--></script>
<script for="cbNewAsTO" event="onfocus"><!--
ChangeRB (false);
--></script>
<script for="cbNewAsTMC" event="onfocus"><!--
ChangeRB (false);
--></script>