<form id="form1" runat="server">
<!-- SqlDataSource für den äußeren Repeater mit den Kategorien -->
<asp:SqlDataSource ID="SrcKategorien" 
	runat="server" 
	ConnectionString="<%$ ConnectionStrings:PalConnectionString %>"
	SelectCommand="SELECT DISTINCT Kategorie FROM FAQ" />
<asp:Repeater ID="RptKategorien" 
	runat="server" 
	DataSourceID="SrcKategorien">
	<ItemTemplate>
		<div>
			<h3>
				<asp:Label ID="lblKat" 
					runat="server" 
					Text='<%#Eval("Kategorie") %>' />
			</h3>
			<asp:Repeater ID="RptKategorien" runat="server" 
				DataSource='<%# GetDetailSource(Eval("Kategorie").ToString()) %>'>
				<ItemTemplate>
					<div style="margin-left:2em">
						<h4 style="margin:0">
							Kategorie 
							<asp:Label ID="lblHeader" runat="server"
								text='<%# Eval("Header") %>' />
						</h4>
						<p style="margin:0;margin-bottom:1.5ex">
							<asp:Label ID="lblMainText" runat="server"
								text='<%# Eval("MainText") %>' />
						</p>
					</div>
				</ItemTemplate>
			</asp:Repeater>
		</div>
	</ItemTemplate>
</asp:Repeater>
</form>

Option Strict On
 
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
 
Partial Class NestedRepeater
    Inherits System.Web.UI.Page
 
	'Tabelle mit Details für den inneren Repeater
	Private _tblDetails As DataTable
 
	'Wenn die SqlDataSource für den äußeren Repeater ihre Daten geladen hat
	'laden wir sofort die Detail-Daten für den inneren Repeater in die
	'DataTable _tlbDetails
	Protected Sub SrcKategorien_Selected(ByVal sender As Object, ByVal e As _
  SqlDataSourceStatusEventArgs) _
	 Handles SrcKategorien.Selected
		_tblDetails = New DataTable
		Dim connString As String = _
		 WebConfigurationManager.ConnectionStrings( _
"PalConnectionString").ConnectionString
		Dim sql As String = "SELECT ID Header, MainText, Kategorie FROM FAQ"
		Using da As New SqlDataAdapter(sql, connString)
			da.Fill(_tblDetails)
		End Using
	End Sub
 
	'Diese Funktion wird für jeden dynamisch generierten inneren Repeater
	'aufgerufen und weist ihm eine Datenquelle zu
	Protected Function GetDetailSource(ByVal kategorie As String) As DataView
		Dim dv As DataView
		Dim filter As String = "Kategorie = '" & kategorie & "'"
		dv = New DataView(_tblDetails, filter, "", DataViewRowState.CurrentRows)
		Return dv
	End Function
 
End Class