<%
sub main_shop(t_num,c_num)
  dim nid
%><table border=0 width='98%' cellspacing=0 cellpadding=0><tr valign=top><%
  sql="select top "&t_num&" id,name,smallimg from product where isgood=1 and hidden=1 order by tim desc,id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    nid=rs("id")
    response.write vbcrlf&"<td width='25%' align=center><table border=0 width='90%' cellspacing=0 cellpadding=0 class=tf>" & _
	    vbcrlf&"<tr><td height=5></td></tr>" & _
	    vbcrlf&"<tr><td align=center><a href='javascript:;' onclick=""javascript:open_view('shop_view.asp?id="&nid&"',1);""><script language=javascript>pic_url('"&rs("smallimg")&"',1)</script></a></td></tr>" & _
	    vbcrlf&"<tr><td align=center height=25><a href='javascript:;' onclick=""javascript:open_view('shop_view.asp?id="&nid&"',1);"">"&objv7.code_html(rs("name"),1,c_num)&"</a></td></tr>" & _
	    vbcrlf&"</table></td>"
    rs.movenext
  loop
  rs.close
%></tr></table><%
end sub
%>