<% Dim featuredPost, homePostIter, homePostItem, homeRecentCount homeRecentCount = 0 Set homePostIter = posts.Iterator() If posts.Count > 0 Then Set featuredPost = homePostIter.GetNext() End If %>
The magazine

BrainOrdure

A tidy, opinionated front page for notes, essays, and reader discussion.

Read the issue Browse sections
Inside this issue

Latest coverage

<% If posts.Count = 0 Then %>

No published stories yet.

<% Else %> <% End If %>
Featured story

From the editor's desk

<% If posts.Count = 0 Then %>
No published posts are available yet.
<% Else %>
Cover story

<%= H(featuredPost.Title) %>

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

<%= H(featuredPublishedText) %>

<% End If %>

<%= H(featuredPost.Summary) %>

Read the feature
<% Dim latestPostIter, latestPostItem, latestIndex latestIndex = 0 Set latestPostIter = posts.Iterator() If latestPostIter.HasNext Then Set latestPostItem = latestPostIter.GetNext() Do While latestPostIter.HasNext And latestIndex < 4 Set latestPostItem = latestPostIter.GetNext() latestIndex = latestIndex + 1 %>
<% Loop %>
<% End If %>
Sections

Browse the paper

<% If categories.Count = 0 Then %>

No categories are available yet.

<% Else %>
    <% Dim homeCategoryIter, homeCategoryItem Set homeCategoryIter = categories.Iterator() Do While homeCategoryIter.HasNext Set homeCategoryItem = homeCategoryIter.GetNext() %>
  • <%= H(homeCategoryItem.Name) %>
    • <% Loop %>
<% End If %>
Reader note

Why it feels different

The layout now leans into a front-page magazine structure with a feature story, supporting briefs, and a quieter sidebar for section navigation.