smart metode "10 posts pr side"

hej!
Er der en der har en smart måde hvorpå man kan lave så der er 10 udtræk pr. side og der så for neden er noget : < 1 2 3 4 5 >

eg:
<% Sql = "select * from tabel"
Set rs = Conn.Execute(sql)
Do while not rs.EOF %>
<%=rs("Url")%>"
<% rs.movenext
Loop
rs.close
set rs = nothing %>