Nyheter:

<% Do UNTIL NewsData.EOF %> <%= FormatDateTime(NewsData("Datum"), 2) %>
<%= "" & UCase(NewsData("Rubrik")) & " - " & NewsData("Text") %>
<% NewsData.Movenext Loop %>

<% NewsData.Close Set NewsData = Nothing Connect.Close Set Connect = Nothing %>