Posts

<% If posts.Count = 0 Then %> <% Else %>

<% If Len(featuredImage) > 0 Then %> <% End If %>

Top story

<%= H(featuredPost.Title) %>

<%= H(featuredPost.Summary) %>

<% featuredPublishedText = "" If IsDate(featuredPost.PublishedDate) Then If CDate(featuredPost.PublishedDate) > #1/1/1970# Then featuredPublishedText = FormatDateTime(featuredPost.PublishedDate, vbLongDate) End If End If featuredReadTime = EstimateReadTime(featuredPost.Body) %>

By BrainOrdure <% If Len(featuredPublishedText) > 0 Then %>•<%= H(featuredPublishedText) %><% End If %> <% If Len(featuredReadTime) > 0 Then %>•<%= H(featuredReadTime) %><% End If %>

More stories

<% Dim shownCount, publishedText, readTimeText, cardImage, articleLabel shownCount = 0 Do While postIter.HasNext And shownCount < 19 Set postItem = postIter.GetNext() shownCount = shownCount + 1 publishedText = "" If IsDate(postItem.PublishedDate) Then If CDate(postItem.PublishedDate) > #1/1/1970# Then publishedText = FormatDateTime(postItem.PublishedDate, vbLongDate) End If End If readTimeText = EstimateReadTime(postItem.Body) cardImage = ExtractFirstImageSrc(postItem.Body) articleLabel = "Issue " & CStr(shownCount + 1) %>

<% If Len(cardImage) > 0 Then %> <% End If %>

<%= H(articleLabel) %>

<%= H(postItem.Title) %>

<%= H(postItem.Summary) %>

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

<% Loop %> <% End If %>