#title "Les messages de carnet web de ce mois"
#monthStart date ("11/1/01")
#monthEnd date ("11/30/01")
<p>Merci et bienvenue.</p>
<p>Ceci est une liste de messages de carnet web pour <%date.monthToString (date.month (monthStart))%> <%date.year (monthStart)%>.</p>
<%
local (s = "");
local (adrblog = Radio.weblog.init ());
local (adrposts = @adrblog^.posts, i);
for i = sizeof (adrposts^) downto 1 {
     local (adrpost = @adrposts^ [i]);
     if (adrpost^.when >= monthStart) and (adrpost^.when <= monthEnd) {
            s = s + "<p>" + adrpost^.when + ": " + string (adrpost^.text) + "</p>"
             }
          };
return (s)
%>