hmm.. bestemt antal og næste side og oversigt

Hej alle eksperter

jeg har en formular hvor jeg kan skrive en nyhed og forfatter, så sender den det i en database og så har jeg en side hvor det bliver vist på! men mit problem er følgende:

Jo flere gange jeg skriver nogle nyheder i min databse jo flere nyheder bliver der også vist på min side der vise indholdet af databasen!
jeg ville gerne have sådan at siden der viser nyhederne max må vise de 2 nyeste nyheder fra databasen? (det skal siges at scriptet allerede sortere efter dato) - mit andet probs. under de to nyeheder må der gerne blive vist et \"næste\" link hvor de to næst nyeste nyehder så bliver vist? - det trejde probs. kan man lave en side der har en total oversigt over alle nyehderne i databsen, så man kan derfra klikke sig ind på den ønskede nyhed?

SIDEN HVOR NYHEDERNE VISES
---------------------------------------------
<%

Response.Buffer = True

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

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

%>

<% Do While Not Record.EOF %>
        <td bgcolor=\"white\"><font face=\"Verdana\" size=\"2\"><% Response.Write Record(\"Dato\")%></td>
        <td bgcolor=\"white\" align=\"right\"><font face=\"Verdana\" size=\"2\"><b>Indsendt af:</b> <% Response.Write Record(\"Forfatter\")%></td>

SIDEN DER SENDER NYHEDERNE
---------------------------------------------
<%
\' --------------------------------------------------
\' Nyhedssting
\' Udviklet af Andreas Mailand - andreas@mailand.dk
\' All rights reserved
\' --------------------------------------------------
Response.Buffer = True

\' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, \"\'\", \"\'\'\" )
END FUNCTION

\' Hent data fra formular   
    Nyhed = Request( \"Nyhed\" )
    Forfatter = Request( \"Forfatter\" )

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

\' ... Ogsaa saetter vi vores data fra formularen ind i databasen
IF Request.Servervariables(\"Content_Length\") > 0 THEN
    Sql = \"INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES(\'\" & Date() & \"\',\'\" & fixQuotes( Nyhed ) & \"\',\'\" & fixQuotes( Forfatter ) & \"\')\"
    Con.Execute Sql

\' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet   
    Response.Write \"<strong>Tak for din nyhed. Den er blevet tilf&oslash;jet til databasen. </strong>\"
   
END IF

%>


<form action=\"nyhed.asp\" method=\"POST\" target=\"_self\">
<table border=\"0\" width=\"600\">
    <tr>
        <td valign=\"top\" width=\"150\">Nyhed</td>
        <td><textarea cols=\"30\" rows=\"8\" name=\"Nyhed\"></textarea></td>
    </tr>
    <tr>
        <td>Forfatter</td>
        <td><input type=\"text\" name=\"Forfatter\"></td>
    </tr>
    <tr>
        <td colspan=\"2\" align=\"center\"><input type=\"submit\" value=\" - SKRIV - \"></td>




HJÆLP MIG