<% Dim postHeroBackground, postHeroClass, publishedText, readTimeText postHeroBackground = ExtractFirstImageSrc(post.Body) postHeroClass = "masthead masthead-post" If Len(postHeroBackground) > 0 Then postHeroClass = postHeroClass & " masthead-has-image" End If publishedText = "" If IsDate(post.PublishedDate) Then If CDate(post.PublishedDate) > #1/1/1970# Then publishedText = FormatDateTime(post.PublishedDate, vbLongDate) End If End If readTimeText = EstimateReadTime(post.Body) %>

0 Then %> style="background-image: url('<%= H(postHeroBackground) %>')"<% End If %>>

Feature story

<%= H(post.Title) %>

<% If Len(publishedText) > 0 Or Len(readTimeText) > 0 Then %>

By BrainOrdure <% If Len(publishedText) > 0 Then %>•<%= H(publishedText) %><% End If %> <% If Len(readTimeText) > 0 Then %>•<%= H(readTimeText) %><% End If %>

<% End If %>

← Back to posts

<%= RenderPostBody(post.Body) %>

Back to posts

<% Dim commentsCount, commentsLoadFailed commentsCount = 0 commentsLoadFailed = False On Error Resume Next If IsObject(comments) Then commentsCount = comments.Count If Err.Number <> 0 Then commentsLoadFailed = True commentsCount = 0 Err.Clear End If On Error GoTo 0 %>

Comments (<%= commentsCount %>)

<% If commentsLoadFailed Then %>

Comments are temporarily unavailable.

<% ElseIf commentsCount = 0 Then %>

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

<% Else %> <% Dim commentIter, commentItem Dim commentsIterFailed commentsIterFailed = False On Error Resume Next Set commentIter = comments.Iterator() If Err.Number <> 0 Then commentsIterFailed = True Err.Clear End If Do While Not commentsIterFailed And commentIter.HasNext Set commentItem = commentIter.GetNext() If Err.Number <> 0 Then commentsIterFailed = True Err.Clear Exit Do End If Dim commentDateText commentDateText = "" If IsDate(commentItem.CreatedDate) Then commentDateText = FormatDateTime(commentItem.CreatedDate, vbLongDate) End If %>

<%= H(commentItem.AuthorName) %> <%= H(commentDateText) %>

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

<%= commentBody %>

<% Loop If Err.Number <> 0 Then commentsIterFailed = True Err.Clear End If On Error GoTo 0 If commentsIterFailed Then %>

Some comments could not be displayed.

<% End If %> <% End If %>

Comments (<%= commentsCount %>)

Leave a Comment