<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Class_Table order by ID asc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%for j = 1 to 2%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [link]",conn,1,1
dim m
m=0
do while not rs.eof
m=m+1
%>
<%
if m mod 8=0 then
response.Write("
")
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
