كود تقسيم الصفحات

استخدم Page Size انظر الى هذا الكود وسوف تفهم

SQL = "SELECT * FROM tablename" 
SET RS= SERVER.CREATEOBJECT("ADODB.RecordSet")
RS.OPEN SQL,CONN,3
IF Rs.RecordCount > 0 Then

RS.PAGESIZE=10
page=REQUEST("page")
page=CLNG(page)
IF page>RS.PAGECOUNT THEN page=RS.PAGECOUNT
IF page="" THEN page=1
IF page<1 THEN page=1
RS.ABSOLUTEPAGE=page

FOR I=1 TO RS.PAGESIZE 	 
           'HTML Code Here
Rs.MoveNext
IF RS.Eof Then Exit For
Next
End if

لاحظ ان

RS.PAGESIZE=10

اي سوف يتم عرض عشر سجلات في كل صفحة فقط

ولتعرف عدد الصفحات الناتح استخدم

rs.pagecount

مشكورر

السلام اخي ومشكور بس سويت وما اشتغل ياليت احد يشرحلنا علشان ما يحتاج ناخذ الكود و نلصقة

لاء اريد افهم الكود بالنفس

انا حاولت بس ما رضى يستوي