<% dim rs8,sql8,q8
q8=0
Set rs8=Server.CreateObject("Adodb.Recordset")
sql8="select * from ProClass where classid=1 or classid=2 or classid=3 or classid=4 or classid=5 or classid=6 or classid=7 or classid=8 or classid=9 or classid=10 or classid=11 or classid=12 order by classorder asc,classid asc"
If rs8.State=1 Then rs8.Close
rs8.Open sql8,Conn ,1,1
if rs8.eof and rs8.bof then%>
<%else%>
<%do while not rs8.eof q8= q8+1%>
<% rs8.movenext
if q8 mod 3 = 0 then
response.Write("")
end if
loop
end if
rs8.close
set rs8 = nothing %>
<% dim rs3,sql3,q3
q3=0
Set rs3=Server.CreateObject("Adodb.Recordset")
sql3="select * from ProClass where classid=13 or classid=14 or classid=15 or classid=16 or classid=17 or classid=18 or classid=19 or classid=20 or classid=21 or classid=22 or classid=23 or classid=24 order by classorder asc,classid asc"
If rs3.State=1 Then rs12.Close
rs3.Open sql3,Conn ,1,1
if rs3.eof and rs3.bof then%>
<%else%>
<%do while not rs3.eof q3= q3+1%>
<% rs3.movenext
if q13 mod 3 = 0 then
response.Write("")
end if
loop
end if
rs3.close
set rs3 = nothing %>
<% dim rs2,sql2,q2
q2=0
Set rs2=Server.CreateObject("Adodb.Recordset")
sql2="select * from ProClass where classid=25 or classid=26 or classid=27 or classid=28 or classid=29 or classid=30 order by classorder asc,classid asc"
If rs2.State=1 Then rs2.Close
rs2.Open sql2,Conn ,1,1
if rs2.eof and rs2.bof then%>
<%else%>
<%do while not rs2.eof q2= q2+1%>
<% rs2.movenext
if q2 mod 3 = 0 then
response.Write("")
end if
loop
end if
rs2.close
set rs2 = nothing %>
<% dim rs4,sql4,q4
q4=0
Set rs4=Server.CreateObject("Adodb.Recordset")
sql4="select * from ProClass where classid=31 or classid=32 or classid=33 or classid=34 or classid=35 or classid=36 order by classorder asc,classid asc"
If rs4.State=1 Then rs4.Close
rs4.Open sql4,Conn ,1,1
if rs4.eof and rs4.bof then%>
<%else%>
<%do while not rs4.eof q4= q4+1%>
<% rs4.movenext
if q4 mod 3 = 0 then
response.Write("")
end if
loop
end if
rs4.close
set rs4 = nothing %>
<% dim rs5,sql5,q5
q5=0
Set rs5=Server.CreateObject("Adodb.Recordset")
sql5="select * from ProClass where classid=37 or classid=38 or classid=39 or classid=40 or classid=41 or classid=42 order by classorder asc,classid asc"
If rs5.State=1 Then rs5.Close
rs5.Open sql5,Conn ,1,1
if rs5.eof and rs5.bof then%>
<%else%>
<%do while not rs5.eof q5= q5+1%>
<% rs5.movenext
if q5 mod 3 = 0 then
response.Write("")
end if
loop
end if
rs5.close
set rs5 = nothing %>
