SEARCH:

<% 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%>
<%Do While Not Rs.EOF And Min<=Max/4%> <%i=1 Do While i<=4 IF Not Rs.EOF Then%> <% Rs.MoveNext Else%> <%End IF i=i+1 Loop %> <%Min=Min+1 Loop End IF%>
&SmallClassid=<%=rs("SmallClassid")%>">" width="180" height="130">
&SmallClassid=<%=rs("SmallClassid")%>"><%=left(Rs("SmallClassName"),20)%>
 

<%if Pageno>1 then%> <%end if if Cint(Pageno) <%end if%>