x antal resultater af gangen

Hej hvordan laver man det sådan, at man får vis fx 10 resultater af gangen - og der så er en >>næste 10<< / >>forige 10<< knap? Mit SQL-udtræk ser sådan her ud:
----------------------
strSQL = "Select * From marked Where kategori like '%" & kategori & "%' AND Dato2>" & AntalDage & " AND annoncetekst like '%" & soegeord & "%' ORDER BY ID DESC;"

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Response.Write "<center>"
Response.Write "<table border=""0"" width=""100%"" style=""font-family: Arial; font-size: 10 pt"">"

Response.Write "<tr width=""100%"" align=""center"" bgcolor=""#FFFFFF"" >Klik på overskriften for hele annoncen.</tr><br>"

Response.Write "<td width=""5%""></td><td width=""65%"" align=""left"" bgcolor=""#cccccc"" valign=""top"">Annonceoverskrift:</td>"
Response.Write "<td width=""5%""></td><td width=""35%"" align=""left"" bgcolor=""#cccccc"" valign=""top"">Oprettet:</td></tr>"
Do While Not rs.EOF

Response.Write "<td width=""5%""></td><td width=""65%"" align=""left"" bgcolor=""#FFFFFF"" valign=""top""><a href=visannonce.asp?Id=" & rs("ID")&">" & rs("overskrift") &"</td>"
Response.Write "<td width=""5%""></td><td width=""35%"" align=""left"" bgcolor=""#FFFFFF"" valign=""top"">"& rs("dato") &"</td></tr>"

rs.MoveNext
Loop
Response.Write "</FONT></table>"
Else
Response.Write "<p><center><FONT FACE=""arial"" SIZE=""2"" COLOR=""#000000"">Der blev desværre ikke fundet nogen annoncer, som matchede dine søgekriterier.</center></p>"
End If
Conn.Close
Set Conn = Nothing
%>