<%= H(category.Name) %>

<%= H(category.Description) %>

Posts in this category

<% If categoryPosts.Count = 0 Then %>

No published posts in this category yet.

<% Else %>

<% Dim catPostIter, catPostItem Set catPostIter = categoryPosts.Iterator() Do While catPostIter.HasNext Set catPostItem = catPostIter.GetNext() %>

<% If Len(Trim(CStr(catPostItem.Summary))) > 0 Then %>

<%= H(catPostItem.Summary) %>

<% End If %> Read

<% Loop %>

<% End If %>