%
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 ("
")
Else
Response.Write ("")
Response.Write (" | | Date: | Headline: |
")
Response.Write (" No Records Found |
")
Response.Write ("
")
End If
rs.Close
Set rs = Nothing
%>
Back to admin startpage
<% End If%>