<% Dim categoryIter, categoryItem Set categoryIter = categories.Iterator() %> <% If categories.Count = 0 Then %>

No categories are available yet.

<% Else %>

<% Do While categoryIter.HasNext Set categoryItem = categoryIter.GetNext() %>

Section

<%= H(categoryItem.Name) %>

<%= H(categoryItem.Description) %>

Browse

<% Loop %>

<% End If %>