Archiv novinek

<% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM novinky WHERE zobrazit = 1 AND datum > '" & dateadd("d",-365,now) & "' ORDER BY datum DESC" rs.Open strSQL, conn, 1, 1 do while not rs.eof %>

<%= rs("datum") %>
<%= rs("nazev") %>
<%= rs("obsah") %>

<% rs.movenext loop rs.close %>