Stories from other sites


<% ' -- list.asp -- Response.Buffer = True 'Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("media/media.mdb") ' Recordset Object 'Dim rs, rsSelected Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "SELECT * FROM media order by news_datetime DESC", connectionString, 3, 4 ' alla nyheter hämtas 'Dim antal antal = 0 Response.Write "" While Not rs.EOF IF antal < 5000 Then Response.Write ("") Response.Write ("") End IF antal = antal + 1 rs.MoveNext Wend Response.Write ("
" & rs("news_datetime") &"  " & rs("news_headline") & "...
") rs.Close Set rs = Nothing %>