<%
set rs = server.CreateObject("adodb.recordset")
sql = "select pro_name,pro_type,pro_pic,pro_content,pro_abstract from ce_products where pro_category='->283->'"
rs.open sql,conn
title = request("title")
dim imenu(0,3)
dim cols
for i= 0 to 3
imenu(0,i)=rs("pro_pic")
rs.movenext
next
%>
