[ASP] Vis kun 4 nyeste nyheder....

www.script.dk har en der viser de 10nyeste der kan du vel bare ændre det til 4 ?

Det har jeg jo, men pludselig virkede det ikke....

http://www.script.dk/sourcecode.asp?action=download&sourceCodeId=65

Ups, sorry. Har du ændret i din database (retorisk spørgsmål)

Nope.... ikke hvad jeg ved af!

Men hvis jeg siger den skal vise 1 nyhed (altså den nyeste) viser den en. Men siger jeg fx. 3 viser den fem? - Hvorfor det?

<%
\' --------------------------------------------------
\' 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 3 * 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=\"469\" height=\"1\">

<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->

<% Do While Not Record.EOF %>
        <td bgcolor=\"#99CCFF\" height=\"1\" width=\"284\" ><b><font size=\"1\"><font face=\"Verdana\">&nbsp;<% Response.Write Record(\"Overskrift\")%></font></font></b></td>
        <td bgcolor=\"#99CCFF\" align=\"right\" height=\"1\" width=\"177\" ><font face=\"Verdana\" size=\"1\">Af
          <% Response.Write Record(\"Forfatter\")%> den </font><font face=\"Verdana\" size=\"1\"><% Response.Write Record(\"Dato\")%></font></td>
    <tr>
        <td colspan=\"2\" width=\"465\" height=\"19\"><font size=\"1\" face=\"Verdana\"><% Response.Write Record(\"Nyhed\") %></font></td>
    </tr>
    <tr><td width=\"284\" height=\"20\"><font size=\"1\">&nbsp;</font></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
%>

Du kan starte med at ændre din
\"Connection til database\" så den ser således ud:
*-*-*-*-*-*
Set Con = Server.CreateObject(\"ADODB.Connection\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db/nyheder.mdb\")
*-*-*-*-*-*
En ide til de 2 næste linjer kunne måske være at
du skulle soterer nyhederne med id istedet for dato, da de nyest nyhedder altid vil ha det højeste Id fordi de er tastet sidst ind i databasen eks:
*-*-*-*-*-*
Sql = \"SELECT TOP 3 * FROM nyheder ORDER BY Id DESC\"
Set Record =  Con.Execute(Sql)
*-*-*-*-*-*
Så skulle det vist i orden håber det kan hjælpe dig.

Du kan starte med at ændre din
\"Connection til database\" så den ser således ud:
*-*-*-*-*-*
Set Con = Server.CreateObject(\"ADODB.Connection\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db/nyheder.mdb\")
*-*-*-*-*-*
En ide til de 2 næste linjer kunne måske være at
du skulle soterer nyhederne med id istedet for dato, da de nyest nyhedder altid vil ha det højeste Id fordi de er tastet sidst ind i databasen eks:
*-*-*-*-*-*
Sql = \"SELECT TOP 3 * FROM nyheder ORDER BY Id DESC\"
Set Record =  Con.Execute(Sql)
*-*-*-*-*-*
Så skulle det vist i orden håber det kan hjælpe dig.
*-* UPS!!! det skulle ha været et svar *-*

Er det her rigtigt? - Det virker slet ikke.... Den viser nemlig ikke noget:

<%
\' --------------------------------------------------
\' Nyhedsting...
\' Udviklet af Andreas Mailand - andreas@mailand.dk
\' All rights reserved
\' --------------------------------------------------
Response.Buffer = True

\' Connection til database

Set Con = Server.CreateObject(\"ADODB.Connection\") <BR>Con.Open
\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" &amp;
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 3 * FROM nyheder ORDER BY Id DESC\" <BR>Set Record = 
Con.Execute(Sql)

Okey! - hvad så med det her?
__________________________________________________

\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\") <BR>Con.Open
\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" &amp;
server.mappath(\"db/nyheder.mdb\")



\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
  Sql = \"SELECT TOP 3 * FROM nyheder ORDER BY Id DESC\" <BR>Set Record = 
  Con.Execute(Sql)

_________________________________________________
Se det på: http://www15.brinkster.com/infodvdenmark/visnyheder2.asp - der er ikke noget da det ikke virker....