Hit counter that increments per session

Can anyone please help me with this trying to make a session counter that but right now its incrementing at the start then increments again when i eather refresh or begin a new session but only increments again one time.
Thanks for your time and help!

This is my code so far.

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)

End Sub

Const INCREMENT_COUNT = 0
Const DECREMENT_COUNT = 1
Const RESET_COUNT = 2

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)

Call MakeCount(INCREMENT_COUNT)

End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)

Call MakeCount(DECREMENT_COUNT)

End Sub

Sub MakeCount(ByVal iCountType)
On Error Resume Next
Select Case iCountType
Case RESET_COUNT
Application.Lock()
Application("Count") = 0
Application.UnLock()
Case INCREMENT_COUNT
Application.Lock()
Application("Count") = Application("Count") + 2
Application.UnLock()
Case DECREMENT_COUNT
'If Application("Count") > 0 Then
Application.Lock()
Application("Count") = Application("Count") - 1
Application.UnLock()
'End If
End Select
End Sub

Use the Session_OnStart() method in the global.asax file. It is only called at the start of a Session. You could add code here to add one to a value held somewhere.

Let me know if you need more help.

DJ

Still need some help please

Add a Class Module to your project with the following inside:

VB Code:

Public Class Scalars
    Public Shared CurrentUsers As Integer
End Class

From your Global.asax file then use:

VB Code:

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        Scalars.CurrentUsers = Scalars.CurrentUsers + 1
    End Sub
 
    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Scalars.CurrentUsers = Scalars.CurrentUsers - 1
    End Sub

From anywhere in your code you can find out how many users you have on your site by using:

VB Code:

Scalars.CurrentUsers