ASP.NET

strSQL = "SELECT   ProductID, ShortDesc, LongDesc, SubCategoryID, PictureUrl, ProductCatID, DataSheetUrl " & _<br />
         " FROM  dbo.Products ORDER BY ProductID"<br />
'& Request.QueryString("subid")<br />
strSqlMain = "SELECT  ProductCatID, Description, SubCategoryID FROM dbo.ProductCategory Where SubCategoryID=" & Request.QueryString("subid")<br />
clsCon.MakeDataSet(strSQL, dsProduct)<br />
clsCon.MakeDataSet(strSqlMain, ds)<br />
ds.Tables(0).TableName = "Main"<br />
ds.Tables.Add(dsProduct.Tables(0).Copy())<br />
ds.Tables(1).TableName = "Products"<br />
Dim str1(0) As String<br />
Dim str2(0) As String<br />
Dim dr As DataRelation = New DataRelation("ProductCat", ds.Tables("Main").Columns("ProductCatID"), ds.Tables("Products").Columns("ProductCatID"), False)<br />
ds.Relations.Add(dr)<br />
rptCategory.DataSource = ds<br />
rptCategory.DataBind()<br />
clsCon.sqlConnection.Close()

Protected Sub BindChild(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs)<br />
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then<br />
            If (CType(e.Item.DataItem, DataRowView).CreateChildView("ProductCat")).Count > 0 Then<br />
                Dim rpt As Repeater = e.Item.Controls(3)<br />
                Dim dsPaged As New PagedDataSource<br />
                dsPaged.DataSource = (CType(e.Item.DataItem, DataRowView).CreateChildView("ProductCat"))<br />
                dsPaged.AllowPaging = True<br />
                dsPaged.PageSize = 7<br />
                dsPaged.CurrentPageIndex = CurrentPage<br />
                lblCurrent.Text = "Page: " & (CurrentPage + 1).ToString & " of " & _<br />
                dsPaged.PageCount.ToString<br />
                lblPrevious.Enabled = Not dsPaged.IsFirstPage<br />
                lblNext.Enabled = Not dsPaged.IsLastPage<br />
                rpt.DataSource = dsPaged<br />
                rpt.DataBind()<br />
            End If<br />
        End If<br />
    End Sub