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

End Sub

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup
        'ÊÚÑíÝ ÚÏÇÏ ÇáÒæÇÑ ÇáãÊæÇÌÏíä Çæä áÇíä
        Application("ActiveVisitor") = 0
    End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
 'äÒíÏ ÚÏÏ æÇÍÏ Úáì ÚÏÇÏ ÇáÒæÇÑ ÇáãÊæÇÌÏæä
        Application.Lock()
        Application("ActiveVisitor") = Application("ActiveVisitor") + 1
        Application.UnLock()
 End Sub

 Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
'ääÞÕ ÇáÚÏÏ æÇÍÏ ãä ÚÏÇÏ ÇáÒæÇÑ
        Application.Lock()
        Application("ActiveVisitor") = Application("ActiveVisitor") - 1
        Application.UnLock()     
    End Sub

OnLine.Text = Application("ActiveVisitor")

 Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
        
        'ÒíÇÏÉ ÑÞã æÇÍÏ Úáì ÚÏÏ ÇáÒæÇÑ Çáßáí Ýí ÇáãæÞÚ

        Dim Con As SqlClient.SqlConnection = New SqlClient.SqlConnection
        Dim Cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand
        Dim Adap As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter
        Dim SQLStr As String
        Dim ConStr As String = ConfigurationSettings.AppSettings("ConnectionString")
        
        Con.ConnectionString = ConStr
        
        'ÌáÈ ÚÏÏ ÒæÇÑ ÇáãæÞÚ
        Dim DataSetSO As New DataSet
        SQLStr = "select HitCounter from MN_PublicOptions"
        Cmd.CommandText = SQLStr
        Cmd.Connection = Con
        Con.Open()
        Adap.SelectCommand = Cmd
        Adap.Fill(DataSetSO)
        Con.Close()
        
        Dim HitCounter As integer = DataSetSO.Tables(0).Rows(0)(0)

        'ÒíÇÏÉ ÚÏÏ ÒæÇÑ ÇáãæÞÚ ÑÞã æÇÍÏ
        HitCounter = HitCounter + 1

        'ÇÚÇÏÉ ÊÎÒíä ÚÏÏ ÒæÇÑ ÇáãæÞÚ ÇáÌÏíÏ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ
        SQLStr = "update MN_PublicOptions set HitCounter=" & HitCounter
        Cmd.CommandText = SQLStr
        Cmd.Connection = Con
        Con.Open()
        Cmd.ExecuteNonQuery()
        Con.Close()
        
        
    End Sub