<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 8 * from shjia where tj=2 order by adddate desc",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
    <td height="14" bgcolor="#FFE9A4"> 
      <table cellspacing=0 cellpadding=0 width=100% height="20">
        <tr> 
          <td width=2% height="16">&nbsp;</td>
          <td height="16"> 
            <div align="center"></div>
             
            &nbsp;推薦商家</td>
          <td height="16" width="30%"> 
            <%
set rs_n=server.CreateObject("adodb.recordset")
rs_n.open "select * from shjia where tj=2 order by adddate desc",conn,1,1
if rs_n.recordcount>8 then
%>
            <a href=shjiatj.asp>更多推薦</a> 
            <%else%>
            &nbsp; 
            <%end if
rs_n.close
set rs_n=nothing
%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <%
		do while not rs.eof
		%>
        <tr> 
          <td height="22"><img src="images/0.gif" width="12" height="11"> 
            <%response.write "<a href=shjialist.asp?id="&rs("shjiaid")&" target=_blank>"
				if len(trim(rs("name")))>12 then
				response.write left(trim(rs("name")),10)&"..."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
          </td>
        </tr>
        <tr> 
          <td height="1" background="images/bj_x1.gif"></td>
        </tr>
        <%    rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>        
      </table>      
    </td>
  </tr>
</table>