← Back to posts

<%= H(post.Title) %>

<% Dim publishedText publishedText = "" If IsDate(post.PublishedDate) Then If CDate(post.PublishedDate) > #1/1/1970# Then publishedText = FormatDateTime(post.PublishedDate, vbLongDate) End If End If If Len(publishedText) > 0 Then %>

<%= H(publishedText) %>

<% End If Dim postBody postBody = H(post.Body) postBody = Replace(postBody, vbCrLf, "
") postBody = Replace(postBody, vbCr, "
") postBody = Replace(postBody, vbLf, "
") %>

<%= postBody %>

Comments (<%= comments.Count %>)

<% If comments.Count = 0 Then %>

No comments yet. Be the first to leave one below.

<% Else %> <% Dim commentIter, commentItem Set commentIter = comments.Iterator() Do While commentIter.HasNext Set commentItem = commentIter.GetNext() %>

<%= H(commentItem.AuthorName) %> <%= H(FormatDateTime(commentItem.CreatedDate, vbLongDate)) %>

<% Dim commentBody commentBody = H(commentItem.Body) commentBody = Replace(commentBody, vbCrLf, "
") commentBody = Replace(commentBody, vbCr, "
") commentBody = Replace(commentBody, vbLf, "
") %>

<%= commentBody %>

<% Loop %> <% End If %>

<%= H(post.Title) %>

Comments (<%= comments.Count %>)

Leave a Comment