<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'complementos')" set objComplementos = Conexao.Execute(SQL) Do while not objComplementos.EOF %> "><%=objComplementos("produto_ingles")%> <% objComplementos.movenext Loop %> <% set objComplementos = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'mesas')" set objMesas = Conexao.Execute(SQL) Do while not objMesas.EOF %> "><%=objMesas("produto_ingles")%> <% objMesas.movenext Loop %> <% set objMesas = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'cadeiras')" set objCadeiras = Conexao.Execute(SQL) Do while not objCadeiras.EOF %> "><%=objCadeiras("produto_ingles")%> <% objCadeiras.movenext Loop %> <% set objCadeiras = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'poltronas')" set objPoltronas = Conexao.Execute(SQL) Do while not objPoltronas.EOF %> "><%=objPoltronas("produto_ingles")%> <% objPoltronas.movenext Loop %> <% set objPoltronas = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'sofas')" set objSofas = Conexao.Execute(SQL) Do while not objSofas.EOF %> "><%=objSofas("produto_ingles")%> <% objSofas.movenext Loop %> <% set objSofas = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'camas')" set objCamas = Conexao.Execute(SQL) Do while not objCamas.EOF %> "><%=objCamas("produto_ingles")%> <% objCamas.movenext Loop %> <% set objCamas = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'cozinha')" set objCozinhas = Conexao.Execute(SQL) Do while not objCozinhas.EOF %> "><%=objCozinhas("produto_ingles")%> <% objCozinhas.movenext Loop %> <% set objCozinhas = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'novos conceitos')" set objConceitos = Conexao.Execute(SQL) Do while not objConceitos.EOF %> "><%=objConceitos("produto_ingles")%> <% objConceitos.movenext Loop %> <% set objConceitos = nothing %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'espaços')" set objEspacos = Conexao.Execute(SQL) Do while not objEspacos.EOF %> "><%=objEspacos("produto_ingles")%> <% objEspacos.movenext Loop %> <% set objEspacos = nothing %>