sayfalara bölmekkkk Yardım !!!

<%
dim catID
dim conn
dim rs
dim sql
dim title
dim url
dim sDesc
dim sql1
dim us


catID = request.queryString("catID")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

SQL = "SELECT * from links where Durum = 'Aktif' and catID="&catID & " and subCatID = 0"

rs.Open SQL, Conn

%>
<br>
<%
SQL1 = "SELECT * from subTopics where catID="&catID
set us = conn.execute(sql1)
do while not us.eof

response.write "<a href=secCat.asp?mainID=" & catID & "&catID="& us("id") & ">" & us("title") & "</a><br>"

us.movenext
loop
%>



<br clear=all>
<font color="red"> </font><br>
<% if rs.eof then response.write " "
do while not rs.eof

url = rs("url")
sDesc = rs("sDesc")
email= rs("email")
%>


<img border="0" src="der.gif" width="50" height="50"><br>
<a href="pop_up" onClick="window.name='hazirkod'; window.open('secCatDevam.asp?id=<%=rs("id")%>','FullScreen', 'toolbar=0,location=0,directories=0,status=0,menub ar=0,scrollbars=0,resizable=0,width=800,height=800 '); return false;">
<%=Left(rs("title"),160)%></br>
<%=Left(rs("sDesc"),160)%> <a href="pop_up" onClick="window.name='hazirkod'; window.open('secCatDevam.asp?id=<%=rs("id")%>','pop_up', 'toolbar=0,location=0,directories=0,status=0,menub ar=0,scrollbars=0,resizable=0,width=800,height=800 '); return false;">
tıkla</a><br><br>

<%
rs.movenext
loop

'closing objects
us.close
set us = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
%>




Arkadaşlar ilk başta size kodları göstererek başlamak istedim. Amacım burdan aldığı bilgilerle ortaya çıkan sonuçlardan herpsini aynı sayfada değilde mesela 10'ar 10'ar sayfalar halinde göstermesini isttiyorum. ama bir türlü beceremedimm. Hep hatayla karşılaşıyorum. Acaba bu konuda nereye hangi kodu eklemem gerektiğini birisi yazabilir mi ???
Teşekkürler...