Manage Posts

<% Dim adminPostIter, adminPostItem Set adminPostIter = posts.Iterator() Do While adminPostIter.HasNext Set adminPostItem = adminPostIter.GetNext() %> <% Loop %>

Title	Status	Created	Actions
<%= H(adminPostItem.Title) %> <% If Len(Trim(CStr(adminPostItem.Summary))) > 0 Then %> <%= H(adminPostItem.Summary) %> <% End If %>	<% If adminPostItem.IsPublished = 1 Then %> Published <% Else %> Draft <% End If %>	<%= H(FormatDateTime(adminPostItem.CreatedDate, vbShortDate)) %>	Edit <% If adminPostItem.IsPublished = 1 Then %> Unpublish <% Else %> Publish <% End If %> Delete