code to view current online users is not giving proper output
<p>i have written a code to view online users in asp.net(vb) but when page gets run it doesn't show proper output,it only shows 3 users online,if more pages are open then also it shows same.i have pasted the code below.please help me.</p>

<pre><code>Public Class Global_asax
    Inherits System.Web.HttpApplication
    Dim i As Integer
    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application is started
        Application("hitcount") = 0
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session is started
        i = Application("hitcount")
        Application.Lock()

        i = i + 1
        Application("hitcount") = Application("hitcount") + 1
        Application.UnLock()

    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session ends
        Application.Lock()
        If Application("hitcount") &gt; 0 Then
            Application("hitcount") = Application("hitcount") - 1
            Application.UnLock()
        End If
    End Sub

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

    End Sub

End Class
</code></pre>
