<% set rsOldnews = connect.execute("select id, rubrik, ingress, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc") set rsantal = connect.execute ("select iantal from antal") intAntal=rsantal("iantal") alignment="right" antal=0 do until rsoldnews.eof or antal = intantal %>
<% =rsOldnews("Rubrik") %>
Skrivet: <% =FormatDateTime(rsOldnews("Datum"),2) %> Av: "> <% =rsOldnews("Forfattare") %>
<% =rsOldnews("ingress") %>
<% antal=antal+1 rsOldnews.movenext loop rsOldnews.close set rsoldnews = nothing rsantal.close set rsantal = nothing %>