<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 14 * from shop_product where tejiaproduct=1 order by productid desc ",conn,1,1
if rs.eof and rs.bof then
response.write "--ó??éá??ó--"
'response.End
else
%>
<%
if not rs.eof then
i=1
do while not rs.eof%>
<%if i mod 7 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close
end if
end if
%>
