<%
dim Nclasslie,sql141,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql141="select top 9 * from FOX_shang1 order by paixu desc"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql141,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%> 
<div align="center">
<TABLE border=1 style="border-collapse: collapse" id="table158" width="100%" cellspacing="1" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">

    <% dim rs141
        sql141="select top 2 * from FOX_shang2 where class1="&classid  
		Nclasslie.open sql141,conn,1,1  
		do while not Nclasslie.eof
		%>
    <TR>
      <TD height="22" width="160"><%if not Nclasslie.eof then%><font color="#FF3300">กค</font>
          <a href=scindex.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs141=conn.execute("select count(id) from [FOX_meng] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs141(0)&"]"
              Nclasslie.movenext 
              end if
              %>
      </TD>
       <TD height="22" width="160"><%if not Nclasslie.eof then%><font color="#FF3300">กค</font>
          <a href=scindex.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs141=conn.execute("select count(id) from [FOX_meng] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs141(0)&"]"
              Nclasslie.movenext 
              end if
              %>
      </TD>    
    </TR>
    <%
loop               
Nclasslie.Close               
%>
</TABLE>
</div>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
%></body></html>