<% set rs_big=server.createobject("Adodb.RecordSet") rs_big.open "select * from zp_bigclass order by sx asc",conn,1,1 if rs_big.recordcount=0 then else rs_big.PageSize=10 if absolutePage=0 then absolutePage=1 end if rs_big.AbsolutePage=absolutePage for i=0 to rs_big.pagesize if rs_big.eof then exit for end if%> <% id2=int(rs_big("id")) bfl=int(request("bfl")) if bfl=id2 then asa="" else asa="DISPLAY: " end if %>

"> +  <%=rs_big("bigclassname")%>

<%set rs_small=server.CreateObject("Adodb.RecordSet") rs_small.open "select * from zp_smallclass where forbigclassid="&rs_big("id")&" order by sx asc",conn,1,1 if rs_small.recordcount<>0 then do while not rs_small.eof%>        • "><%=rs_small("smallclassname")%> <%rs_small.movenext loop end if rs_small.Close%>

<%rs_big.movenext next end if%>