Public Sub DisplayTotalPosts()
        Try
            Dim users As Data.DataSet = CMS.Forums.ForumPostInfoProvider.GetForumPosts("", "", 0, "postid")
            If DataHelper.DataSourceIsEmpty(users) = True Then Me.Literal1.Text = "0" : Exit Sub
            Dim totalthreads As Integer = 0
            For Each f As Data.DataRow In users.Tables(0).Rows
                Dim forumpost As CMS.Forums.ForumPostInfo = CMS.Forums.ForumPostInfoProvider.GetForumPostInfo(f("postid"))
                If forumpost IsNot Nothing Then
                    totalthreads += forumpost.PostThreadPosts
                End If
            Next
            Me.Literal4.Text = totalthreads

            Me.Literal3.Text = users.Tables(0).Rows.Count.ToString


        Catch ex As Exception
            '  Me.Literal3.Text = ex.Message & ex.StackTrace
        End Try

    End Sub