<%
BigClassID=request("BigClassID")
set rs=server.CreateObject("adodb.recordset")
sql="select * from SmallClass where BigClassID="&BigClassID
rs.open sql,conn,1,1
IF Not(Rs.BOF And Rs.EOF) Then
Rs.Pagesize=8
Pages=Rs.PageCount
Records=Rs.RecordCount
Pageno=Request("Pageno")
IF Pageno="" Or Pageno<1 Then Pageno=1
Pageno=Cint(Pageno)
IF Pageno>Pages Then Pageno=Pages
Rs.Absolutepage=Pageno
Min=1
Max=Rs.Pagesize%>