Manage Comments

<% Dim adminCommentIter, adminCommentItem, adminCommentPost, adminCommentPostTitle, adminCommentPostUrl Set adminCommentIter = comments.Iterator() Do While adminCommentIter.HasNext Set adminCommentItem = adminCommentIter.GetNext() adminCommentPostTitle = "Post #" & CStr(adminCommentItem.PostID) adminCommentPostUrl = "" Set adminCommentPost = Nothing On Error Resume Next Set adminCommentPost = PostsRepository().FindByID(adminCommentItem.PostID) If Err.Number = 0 Then adminCommentPostTitle = adminCommentPost.Title adminCommentPostUrl = PostUrl(adminCommentPost.Slug) End If Err.Clear On Error GoTo 0 %> <% Loop %>

Comment	Post	Status	Created	Actions
<%= H(adminCommentItem.AuthorName) %> <% If Len(Trim(CStr(adminCommentItem.AuthorEmail))) > 0 Then %> <%= H(adminCommentItem.AuthorEmail) %> <% End If %> <%= H(adminCommentItem.Body) %>	<% If Len(adminCommentPostUrl) > 0 Then %> <%= H(adminCommentPostTitle) %> <% Else %> <%= H(adminCommentPostTitle) %> <% End If %>	<% If adminCommentItem.IsApproved = 1 Then %> Approved <% Else %> Pending <% End If %>	<%= H(FormatDateTime(adminCommentItem.CreatedDate, vbShortDate)) %>	<% If adminCommentItem.IsApproved = 1 Then %> Unapprove <% Else %> Approve <% End If %> Delete