Nyheder, men kun de 4 nyeste....
Hej! - Jeg har forgæves prøvet at få svar på følgende problem:Jeg har en database jeg skal have hentet 4 og kun 4 nyeste nyheder fra, jeg har dette:
<%
\' --------------------------------------------------
\' Nyhedsting...
\' Udviklet af Andreas Mailand - andreas@mailand.dk
\' All rights reserved
\' --------------------------------------------------
Response.Buffer = True
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db/nyheder.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = \"SELECT TOP 4 * FROM nyheder ORDER BY Dato DESC\"
Set Record = Con.Execute(Sql)
%>
<html>
<head>
<title></title>
</head>
<body link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<table border=\"0\" cellspacing=\"0\" width=\"484\">
<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->
<% Do While Not Record.EOF %>
<td bgcolor=\"#99CCFF\" width=\"348\" ><font size=\"1\" face=\"Verdana\"><b> <% Response.Write Record(\"Overskrift\")%></b></font></td>
<td bgcolor=\"#99CCFF\" width=\"128\" ><font size=\"1\" face=\"Verdana\">Af <% Response.Write Record(\"Forfatter\")%>
den <% Response.Write Record(\"Dato\")%></font></td>
<tr>
<td colspan=\"2\" width=\"480\"><font face=\"Verdana\" size=\"1\"><% Response.Write Record(\"Nyhed\") %></font></td>
</tr>
<tr><td width=\"348\"> </td></tr>
<%
Record.MoveNext
Loop
%>
<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>
</body>
</html>
<%
\' Lukke connection
Con.Close
Set Con = Nothing
%>
Men det virker ikke optimalt, se selv mere her... http://www.sck.dk/infodvdenmark/default.asp
