<%= 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, "
") %>