Latest issue

Posts

Published articles from ASPBlogBrainOrdure.

<% Dim postIter, postItem, shownCount Set postIter = posts.Iterator() shownCount = 0 If posts.Count = 0 Then %>

No published posts are available yet.

<% Else %>

<% Do While postIter.HasNext And shownCount < 20 Set postItem = postIter.GetNext() shownCount = shownCount + 1 %>

<%= H(postItem.Title) %>

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

<%= H(postItem.Summary) %>

Read

<% Loop %>

<% End If %>