vis de 5 første poster i en DB

<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDB.mdb")
sql = "select * from DinTabel ORDER BY id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)

count = 10
While not rs.eof and count > 0
count = count -1
%>
    <%=rs("test")%>
            <%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Wend
End If
rs.Close
Set rs = Nothing
%>

MVH
Mr.Meincke

ups...
Du skal ændre coutn = 10 til count = 5

SELECT TOP 5 * FROM tabelnavn

takker :)