<% dim img3
sql="select top 8 * from product where newproduct=1 order by EditTime desc,id desc"
set img3= Server.CreateObject("adodb.recordset")
img3.open sql,conn,1,1
i=0:do while not img3.eof:i=i+1
if img3("ProductPic")<>"" then
%>
<%
end if
img3.movenext:loop:img3.close:set img3=nothing%>