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