<% set category_rs=server.CreateObject("adodb.recordset")
sql="select * from CATEGORY where parent_id=0 order by CATEGORY_ID"
category_rs.open sql,DBConn
if not category_rs.bof and not category_rs.eof then
n=1
do while not category_rs.eof
imgname="Image30"&n%>