สอบถามปัญหาที่เกิดจากการแสดงผลของโค้ดต่อไปนี้นะคะจะพอมีวิธีแก้ได้ไหมคะ

<%dim strpaged
ctt0=request("bbbbb")
Set strsql=CreateObject("ADODB.Command")
strsql="select * from d1 where ddd like '%"&dddd&"%'order by ddd desc"
set objrec=server.createobject("ADODB.Recordset")
objrec.open strsql,conn,1,3
Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
PageNo=strpaged
PageLen=5
if PageNo= "" Then PageNo=1
TotalRecord=objRec.RecordCount
objRec.PageSize=PageLen
TotalPage=objRec.PageCount
objRec.AbsolutePage=PageNo
no=1%><%do while not objrec.eof and no <=pagelen
n=n+1
Response.cookies("1111")=objRec("id")%>


<div style="text-align:left"><!--#include file="ddd.asp"--></div>
ตัว<!--#include file="ddd.asp"-->นี้จะอ้างอิงจาก table d1 นั้น ว่ามี ไอดีที่ตรงกับ ในตางราง d2 กี่เรคคอร์ด
สมมุติว่ามี 4 เรคคอร์ด 
ddd.asp จะแสดงจำนวนเรคคอร์ดถ้ามีมากกว่าที่กำหนดจะแสดง Show all ให้คลิกดูทั้งหมด เป็น Jquery click

<%id=request.cookies("1111")
sql2="select * from d2 where ddd='"&id&" "
rs2.open sql2,conn,1,3%>
<a href="#">Show all<%=rs2.recordcount%></a>ในส่วนนี้ไม่มีปัญหาแสดงได้ปกติ
---------------------------------------- -------------------------------------
ตามโค้ดนี้ showall.asp 
<%id=request.cookies("1111")
sql2="select * from d2 where ddd='"&id&" "
rs2.open sql2,conn,1,3%>
จะแสดง 1 เรคคอร์ด แต่เวลาคลิกมันจะแสดง 1 เรคคอร์ด แต่วนซ้ำ 5 ครั้ง แม้ว่าจะกำหนดหรือไม่กำหนดจำนวนการแสดงใน show all
id=1 <%=rs2("me")%>
id=1 <%=rs2("me")%>
id=1 <%=rs2("me")%>
id=1 <%=rs2("me")%>
id=1 <%=rs2("me")%>
แบบนี้ ตาม PageLen=5 จากตัวข้างบนนะคะ
จะพอมีวิธีแก้ไหมคะ   แต่ถ้าไม่ได้ <!--#include file="ddd.asp"--> กับไฟล์ใดก็แสดงได้ปกติ แต่จำเป็นต้องใช้นะคะ


----------------------------
<%
If no mod 1= 0 then
end If
no=no + 1
objrec.movenext
loop
If objrec.eof then
response.write("")	%><%else%></ol><%objrec.close()
conn.close()
set objrec=nothing
set conn=nothing%>