 <%'dim rsnews,nn
set rsnews=server.createobject("adodb.recordset")
rsnews.open "select top 10 * from FOX_shop where xinxipic<>'0' order by fbsj desc",conn,1,1
if rsnews.recordcount=0 then
	response.write "ΤέΚ±Γ»ΣΠ..."
else
  Response.Write("<table border=0 cellspacing=0 cellpadding=0 style='border-collapse: collapse' width='300'><tr>")
  i=0
  while not rsnews.eof
  nn=nn+1
   Response.Write "<td style='font-size: 12px' width='80' height='20'>"
   Response.Write "<a href=info.asp?xxid="&rsnews("id")&" target=""_blank"">"
response.write "<img height='70' src='shopupfiles/"&rsnews("chanpen")&"' width='70' border='0'></a></td>"
      if nn=1 then 
	     Response.Write("</tr><tr>")
		 nn=0
	  end if
	  if  rsnews.eof  then
	   Response.Write("</tr>")
	   end if
		rsnews.movenext
	 wend
	Response.Write("</table>")
end if
rsnews.close
set rsnews=nothing
%></body></html>