<% Dim featuredPost, homePostIter, homePostItem, homeHeroBackground, homePublishedText, homeReadTime, homeCardImage homeHeroBackground = "" Set homePostIter = posts.Iterator() If posts.Count > 0 Then Set featuredPost = homePostIter.GetNext() homeHeroBackground = ExtractFirstImageSrc(featuredPost.Body) End If %>
0 Then %> style="background-image: url('<%= H(homeHeroBackground) %>')"<% End If %>>

BrainOrdure

A cleaner front page for essays, notes, and reader discussion.
<% If posts.Count = 0 Then %>
No published posts are available yet.
<% Else %>
<% If Len(homeHeroBackground) > 0 Then %> <% End If %>
Featured story

<%= H(featuredPost.Title) %>

<%= H(featuredPost.Summary) %>

<% homePublishedText = "" If IsDate(featuredPost.PublishedDate) Then If CDate(featuredPost.PublishedDate) > #1/1/1970# Then homePublishedText = FormatDateTime(featuredPost.PublishedDate, vbLongDate) End If End If homeReadTime = EstimateReadTime(featuredPost.Body) %>
By BrainOrdure <% If Len(homePublishedText) > 0 Then %>•<%= H(homePublishedText) %><% End If %> <% If Len(homeReadTime) > 0 Then %>•<%= H(homeReadTime) %><% End If %>

Latest stories

<% Dim homePreviewCount homePreviewCount = 0 Do While homePostIter.HasNext And homePreviewCount < 4 Set homePostItem = homePostIter.GetNext() homePreviewCount = homePreviewCount + 1 homePublishedText = "" If IsDate(homePostItem.PublishedDate) Then If CDate(homePostItem.PublishedDate) > #1/1/1970# Then homePublishedText = FormatDateTime(homePostItem.PublishedDate, vbLongDate) End If End If homeReadTime = EstimateReadTime(homePostItem.Body) homeCardImage = ExtractFirstImageSrc(homePostItem.Body) %>
<% If Len(homeCardImage) > 0 Then %> <% End If %>
Issue <%= homePreviewCount + 1 %>

<%= H(homePostItem.Title) %>

<%= H(homePostItem.Summary) %>

By BrainOrdure <% If Len(homePublishedText) > 0 Then %>•<%= H(homePublishedText) %><% End If %> <% If Len(homeReadTime) > 0 Then %>•<%= H(homeReadTime) %><% End If %>
<% Loop %>
View All Posts →
<% End If %>