%
' 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
%>