<% if request.QueryString("m")="BRM-DIN" then marca="DIN - BRM" else marca="BRM" end if sql="select distinct imgproduto, desccateg_es, idcateg from catalogo where marca='" & marca & "'" %> <%do until objrs.eof %> <%objrs.movenext loop objrs.close : set objrs = nothing : objconn.close : set objconn = nothing%>

','mostraprod','width=550,height=500,toolbar=1,menubar=1,resizable=1,scrollbars=1')">" width="140" border="0"> <%desc=replace(objrs("desccateg_es")," - "," ") response.write desc %>