...
<asp:Content ID="Content5" ContentPlaceHolderID="cphMain" runat="server">
 
    <uc2:ctlProductlist ID="ctlProductlist1" runat="server" />
    <%Me.ctlPager1.DS = Me.ctlProductlist1.MyDs%>
    <uc4:ctlPager ID="ctlPager1" runat="server" />
 
 
</asp:Content>
...

Public Partial Class ctlPager
    Inherits System.Web.UI.UserControl
 
    Private intPageSize As Integer 
    Private intPageLinks As Integer
    Private intPageCount As Integer
    Private intCurrentPage As Integer
    Private dsPageDataSet As DataSet
 
    Private Const FirstPage = "|<"
    Private Const LastPage = ">|"
    Private Const NextPage = ">"
    Private Const PreviousPage = "<"
 
    Private PagerLine As TableRow
    Private PagerCell As TableCell
    Private MyButton As LinkButton
    Private MySpaceLabel As New Label
 
    Public Property DS() As DataSet
        Get
            Return dsPageDataSet
        End Get
        Set(ByVal value As DataSet)
            dsPageDataSet = value
            Call GenerateLinks()
        End Set
    End Property
 
 
    Public Sub GenerateLinks()
        Dim AnzRows As Integer
 
        If Not IsNothing(dsPageDataSet) Then
            Try
                AnzRows = dsPageDataSet.Tables(0).Rows.Count
            Catch ex As Exception
                AnzRows = 35
            End Try
 
        Else
            Exit Sub
        End If
 
        intPageCount = IIf((AnzRows Mod intPageSize) = 0, AnzRows \ _
          intPageSize, (AnzRows \ intPageSize) + 1)
 
        PagerLine = New TableRow
        PagerCell = New TableCell
        MySpaceLabel.Text = "-"
        MyButton = New LinkButton
        MyButton.Text = FirstPage
        MyButton.ID = "PageFirst"
        MyButton.CommandArgument = 1
        AddHandler MyButton.Click, AddressOf SetPage
        PagerCell.Controls.Add(MyButton)
        PagerCell.Controls.Add(MySpaceLabel)
 
        For i As Integer = 1 To intPageCount
            MySpaceLabel = New Label
            MySpaceLabel.Text = "-"
            MyButton = New LinkButton
            MyButton.ID = "Page" + i.ToString
            MyButton.Text = i
            MyButton.CommandArgument = i
            AddHandler MyButton.Click, AddressOf SetPage
            PagerCell.Controls.Add(MyButton)
            PagerCell.Controls.Add(MySpaceLabel)
        Next
 
        MyButton = New LinkButton
        MyButton.Text = LastPage
        MyButton.ID = "PageLast"
        MyButton.CommandArgument = intPageCount
        AddHandler MyButton.Click, AddressOf SetPage
        PagerCell.Controls.Add(MyButton)
        PagerLine.Controls.Add(PagerCell)
 
        Me.PagerTable.Controls.Add(PagerLine)
 
    End Sub
 
    Private Sub SetPage(ByVal sender As Object, ByVal e As EventArgs)
 
        If Not IsNothing(Session("Page")) Then
            Session("Page") = sender.CommandArgument
        Else
            Session.Add("Page", sender.CommandArgument)
        End If
 
        Response.Redirect(Request.Url.ToString)
    End Sub
 
End Class

Ciao

J?rgen

PS: geht nicht gibt's nicht