
<table border="1" cellspacing="0" bordercolor="#eaeaea" width ="285" style="border-collapse:collapse;">
  <%
dim Nclasslie,classlie,classid
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sqls="select * from sjcla1"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sqls,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%>


<tr>
<td bgcolor="#fbfbfb" height="50" align="left">
<div style="padding-left:8px;">
<img src="img/icon_1.gif" /><a href="shop.asp?sc1=<%=classid%>&amp;jle=1" class="bar2"> <b><%=classlie("sjcla1")%></b></a>
<%
set rss=conn.execute("select count(id) from [jle_shop] where sjcla1="&classid&"")
%>(<%=rss(0)%>)
</div>
</td>
</tr>
<tr>
<td > 
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="4">
<%
sqls="select * from sjcla2 where sjcla1="&classid  
Nclasslie.open sqls,conn,1,1  
do while not Nclasslie.eof
%> <tr>
    <td>
<%if not Nclasslie.eof then%>
<a href="shop.asp?sc1=<%=classid%>&sc2=<%=Nclasslie("id")%>&jle=2" class="bar3" ><%=Nclasslie("sjcla2")%></a>
<%
set rss=conn.execute("select count(id) from [jle_shop] where sjcla1="&classid&" and sjcla2="&Nclasslie("id")&"")
response.write "("&rss(0)&")"
Nclasslie.movenext 
end if
%>
</td>
<td>
<%if not Nclasslie.eof then%>
<a href="shop.asp?sc1=<%=classid%>&sc2=<%=Nclasslie("id")%>&jle=2"  class="bar3"><%=Nclasslie("sjcla2")%></a>
<% set rss=conn.execute("select count(id) from [jle_shop] where sjcla1="&classid&" and sjcla2="&Nclasslie("id")&"")
              response.write "("&rss(0)&")"
              Nclasslie.movenext
              end if%>
</td>
              


</tr>
<%
loop               
Nclasslie.Close               
%>
</table>


</td>
</tr>

 <%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 

%>
</table>