Display Custom Paging Page Count Message in ASP.Net Label using C# and VB.Net

Hello, All. 

Open to better solutions to the following issue. I've been using a Classic ASP Script for over 10+ years for paging through the records on our sites.

It works well, but we are starting to transition to ASP.NET on many of our sites, and code examples are also being ported over to ASP.NET for both VB and C# on our coding source site.

The one I am currently working on is the paging with DataList and Repeater. Everything is working, but now I am trying to get it to show what page is being viewed and how many pages are available.

Showing page 1 of 13: Total of Records: 1298 This is what I am trying to accomplish in ASP.Net.

On the following Microsoft Learn page, They have the following code, and not being fluid enough in asp.net, and how everything works, I am unsure how to code the label to make it pick up on the records. So right now, it is grabbing nothing and throwing an error.

' Display the current page being viewed...
CurrentPageNumber.Text = String.Format("You are viewing page {0} of {1}...", _    PageIndex + 1, PageCount

Here is my code

<asp:DataList ID="dlCustomers" runat="server" RepeatDirection="Horizontal" RepeatColumns="5">
    <ItemTemplate>
        <table cellpadding="2" cellspacing="0" class="Item">
            <tr>
                <td class="body"><%# Eval("MyTitle") %><br /></td>
            </tr>
        </table>
    </ItemTemplate>
</asp:DataList>
<asp:Repeater ID="rptPager" runat="server">
    <ItemTemplate>
        <asp:LinkButton ID="lnkPage" runat="server" Text='<%#Eval("Text") %>' CommandArgument='<%# Eval("Value") %>'
            CssClass='<%# If(Convert.ToBoolean(Eval("Enabled")), "page_enabled", "page_disabled")%>'
            OnClick="Page_Changed" OnClientClick='<%# If(Not Convert.ToBoolean(Eval("Enabled")), "return false;", "") %>'></asp:LinkButton>
    </ItemTemplate>
</asp:Repeater>
<asp:Label runat="server" ID="CurrentPageNumber"></asp:Label>

Not certain where to place the following code. It was on line 122, held within the PopulatePager SUB.

CurrentPageNumber.Text = String.Format("You are viewing page {0} of {1}..." + PageIndex + 1, pageCount)

Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Collections.Generic
Partial Class Load
    Inherits System.Web.UI.Page

    Private PageSizes As Integer = 100
    'Public Property CurrentPageNumbers As Object

    Private ReadOnly Property PageIndex() As Integer
        Get
            If (Not String.IsNullOrEmpty(Request.QueryString("pageIndex"))) Then
                Return Convert.ToInt32(Request.QueryString("pageIndex"))
            Else
                Return 0
            End If
        End Get
    End Property
    Private ReadOnly Property PageSize() As Integer
        Get
            If (Not String.IsNullOrEmpty(Request.QueryString("pageSize"))) Then
                Return Convert.ToInt32(Request.QueryString("pageSize"))
            Else
                Return 4
            End If
        End Get
    End Property
    Private ReadOnly Property PageCount() As Integer
        Get
            If TotalRowCount <= 0 OrElse PageSize <= 0 Then
                Return 1
            Else
                Return ((TotalRowCount + PageSize) - 1) / PageSize
            End If
        End Get
    End Property
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.GetCustomersPageWise(1)
        End If
    End Sub
    Private Sub GetCustomersPageWise(pageIndex As Integer)
        Dim constr As String = ConfigurationManager.ConnectionStrings("Virtual-Learning").ConnectionString
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand("GetCustomersPageWise", con)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.AddWithValue("@PageIndex", pageIndex)
                cmd.Parameters.AddWithValue("@PageSize", PageSizes)
                cmd.Parameters.Add("@RecordCount", SqlDbType.Int, 4)
                cmd.Parameters("@RecordCount").Direction = ParameterDirection.Output
                con.Open()
                Dim idr As IDataReader = cmd.ExecuteReader()
                dlCustomers.DataSource = idr
                dlCustomers.DataBind()
                idr.Close()
                con.Close()
                Dim recordCount As Integer = Convert.ToInt32(cmd.Parameters("@RecordCount").Value)
                Me.PopulatePager(recordCount, pageIndex)
            End Using
        End Using
    End Sub
    Private Sub PopulatePager(recordCount As Integer, currentPage As Integer)
        Dim pages As New List(Of ListItem)()
        Dim startIndex As Integer, endIndex As Integer
        Dim pagerSpan As Integer = 5
        'Calculate the Start and End Index of pages to be displayed.
        Dim dblPageCount As Double = CDbl(CDec(recordCount) / Convert.ToDecimal(PageSize))
        Dim pageCount As Integer = CInt(Math.Ceiling(dblPageCount))
        startIndex = If(currentPage > 1 AndAlso currentPage + pagerSpan - 1 < pagerSpan, currentPage, 1)
        endIndex = If(pageCount > pagerSpan, pagerSpan, pageCount)
        If currentPage > pagerSpan Mod 2 Then
            If currentPage = 2 Then
                endIndex = 5
            Else
                endIndex = currentPage + 2
            End If
        Else
            endIndex = (pagerSpan - currentPage) + 1
        End If


        If endIndex - (pagerSpan - 1) > startIndex Then
            startIndex = endIndex - (pagerSpan - 1)
        End If


        If endIndex > pageCount Then
            endIndex = pageCount
            startIndex = If(((endIndex - pagerSpan) + 1) > 0, (endIndex - pagerSpan) + 1, 1)
        End If


        'Add the First Page Button.
        If currentPage > 1 Then
            pages.Add(New ListItem("First", "1"))
        End If


        'Add the Previous Button.
        If currentPage > 1 Then
            pages.Add(New ListItem("Previous", (currentPage - 1).ToString()))
        End If


        For i As Integer = startIndex To endIndex
            pages.Add(New ListItem(i.ToString(), i.ToString(), i <> currentPage))
        Next


        'Add the Next Button.
        If currentPage < pageCount Then
            pages.Add(New ListItem("Next", (currentPage + 1).ToString()))
        End If


        'Add the Last Button.
        If currentPage <> pageCount Then
            pages.Add(New ListItem("Last", pageCount.ToString()))
        End If
        rptPager.DataSource = pages
        rptPager.DataBind()
    End Sub

    Protected Sub Page_Changed(sender As Object, e As EventArgs)
        Dim pageIndex As Integer = Integer.Parse(TryCast(sender, LinkButton).CommandArgument)
        Me.GetCustomersPageWise(pageIndex)
    End Sub


    Private Property TotalRowCount() As Integer
        Get
            Dim o As Object = ViewState("TotalRowCount")
            If (o Is Nothing) Then
                Return -1
            Else
                Return Convert.ToInt32(o)
            End If
        End Get
        Set(Value As Integer)
            ViewState("TotalRowCount") = Value
        End Set
    End Property
End Class

Here is a list of 100 records for SQL Server script.

This is the GetCustomersPageWise SQL Stored Procedure.

CREATE PROCEDURE [dbo].[GetCustomersPageWise]
      @PageIndex INT = 1
      ,@PageSize INT = 10
      ,@RecordCount INT OUTPUT
AS
BEGIN
      SET NOCOUNT ON;
      SELECT ROW_NUMBER() OVER
      (
            ORDER BY [ID] ASC
      )AS RowNumber
      ,[ID]
      ,[MyTitle]
     INTO #Results
      FROM [Paging]
     
      SELECT @RecordCount = COUNT(*)
      FROM #Results
           
      SELECT * FROM #Results
      WHERE RowNumber BETWEEN(@PageIndex -1) * @PageSize + 1 AND(((@PageIndex -1) * @PageSize + 1) + @PageSize) - 1
     
      DROP TABLE #Results
END

Thank you. Wayne