<% Response.Buffer = True Dim connectionString connectionString = db9 %>

<% Response.Write rubrik %>



<% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "select top 40 * From media order by [news_datetime] desc, ID DESC", connectionString, 3, 4 If Not rs.EOF Then Response.Write ("Antal: " & rs.RecordCount & "    Add new Storie   

") Response.Write ("") Response.Write ("") While Not rs.EOF Response.Write ("" & "") rs.MoveNext Wend Response.Write ("
DAte:Headline:
[Delete][Edit]" & rs("news_datetime") & "" & rs("news_headline") & "

") Else Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
Date:Headline:

No Records Found

") End If rs.Close Set rs = Nothing %>

Back to admin startpage <% End If%>