<% ' Customize Author Name sThisAuthorName = "Selena Maranjian" iAuthorId = 1283 ' The author's ID in the Content database iYear = CInt(Request("year")) If Not iYear > 0 Then iYear = Year(Date) End If %> <% = sThisAuthorName %> | Archive <% = iYear %> <% ' Render the Archive Set oAuthorArchiveGenerator = Server.CreateObject("Fool.Apps.Content.Service.Feeds.AuthorArchiveGenerator") Response.Write oAuthorArchiveGenerator.Render(iAuthorId, "http://www.fool.com", iYear) Set oAuthorArchiveGenerator = Nothing %>