%
function changechr(str)
changechr=replace(str,"uploadfile/","admin/uploadfile/")
end function
id=request("id")
set rsmore=server.CreateObject("adodb.recordset")
sqlmore="select * from product where id="&id
rsmore.open sqlmore,conn,1,3
%>
<%
set rsprod1=server.CreateObject("adodb.recordset")
sqlprod1="select * from prod1 order by list asc"
rsprod1.open sqlprod1,conn,1,3
for d1=1 to rsprod1.recordcount
%>