Hvad er der galt?

Jeg vil udskrive mine 10 første poster:
    <%



set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"log/link.mdb\")
SQL = \"Select top 10 * FROM link2 ORDER BY hit DESC\"
set RS = conn.execute ( SQL )
Do while Not RS.EOF

%>

<center>
        <table border=\"0\" width=500 cellspacing=\"0\" cellpadding=\"0\"  class=\"border\">
        <tr>
        <td bgcolor=\"#dfdfdf\" width=\"400\" class=\"td\">
      <a href=\"goto.asp?id=<%Response.Write RS(\"ID\")%>\"><font size=2 Face=Verdana ><b>-<%Response.Write RS(\"Name\")%></b></font></a> 
    </td><td bgcolor=\"#dfdfdf\" width=\"100\" class=\"td\"><font face=\"Verdana\" size=1 color=\'Black\'>Hits : <%Response.Write RS(\"Hit\")%> </font></td>
    </tr>
    <tr>
    <td colspan=\'2\' bgcolor=\"white\" class=\"td\"><font color=\"black\" size=1 Face=Verdana ><%Response.Write RS(\"Description\")%>    </font></td>
    </tr>
    <tr>
    <td colspan=\'2\' bgcolor=\"#8A91A1\" > <font size=1 Face=Verdana color=\"#FFFFFF\"><%Response.Write RS(\"postdate\")%>    </font><b><font face=\"Verdana\" size=\"1\"><font color=\"black\"> |</font>
      </font></b></td>
    </td>
    </tr>
    </table>
    </center>
    <br>
   
            <%
       
    RS.Movenext
    Loop
   
   
    set conn=nothing
%>               
Men der udskriver bare alle...