VÅR DAGBOK

<% Set objRS=objConn.Execute("SELECT * FROM news ORDER BY ID DESC") If objRS.EOF then Response.Write("Dagboken är tyvärr tom för tillfället!") Else Do until objRS.EOF %>
<%=objRS("Datum")%>

<%=Replace(objRS("Nyhet"),vbCrlf,"
")%>


<% objRS.Movenext Loop End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>