<% dat2 = date + 90 dat3 = date Set annons = Server.CreateObject("ADODB.Recordset") annons.CursorLocation = adUseClient annons_sql = "SELECT * FROM news ORDER BY datum DESC" annons.Open annons_sql, objConn, 3, 1 %>

Dagens datum är: <%= date%>
<% do while not annons.EOF nummer = nummer + 1 If nummer Mod 2 = 0 then color = "#FDFDFD" Else color = "#EEEEEE" End If %> <% annons.MoveNext Loop annons.close set annons = nothing %>
<%= annons("rubrik")%> <%= annons("datum")%> v. <%= DatePart("ww", annons("datum"), 2, 1)%>
<%= Replace(annons("text"),vbCrlf,"
")%>