<% Set Frs=phies.phies_Execute("select proimg,proname,capacity,producttext from MY_Product where (ClassID='1' or ClassID='8' or ClassID='9' or ClassID='3') and States='1' order by infotime desc") if not Frs.eof then do while not Frs.eof proImg=replace(Frs("ProImg"),"../","") %> <%Frs.movenext loop end if Frs.close Set Frs=nothing %>