<%Option Explicit%>

<% dim RS, SQL set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM nyheder ORDER By nyhedsid DESC" RS.Open SQL,conn if not RS.eof then do until RS.EOF %>

'"><%response.write RS("titel")%>

<% RS.MoveNext loop end if RS.close set rs = nothing %>

<%response.flush%>

<% if request("nyhedsid")<> "" then set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM nyheder WHERE nyhedsid = "& request("nyhedsid") RS.Open SQL,conn if not RS.eof then %> <%response.write RS("titel")%>

<%response.write RS("indhold")%>

<% end if RS.close else set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM nyheder ORDER BY nyhedsid DESC" RS.Open SQL,conn if not RS.eof then %> <%response.write RS("titel")%>

<%response.write RS("indhold")%>

<% end if RS.close end if %> <%response.flush%>