<% If objFoto.EOF Then %>

<% Else %> <% If objFoto("foto_gr") <> "" Then %> " border="0" name="myPicture" alt="Slideshow" /> <% Else %> " name="myPicture" alt="Slideshow" /> <% End If %> <% ObjFoto.movenext If not objFoto.EOF Then %> <% End If %> <% End If %>

<% SQL = "Select * from tb_produtos where (tb_produtos.categoria like 'complementos')" set objComplementos = Conexao.Execute(SQL) Do while not objComplementos.EOF %> "><%=objComplementos("produto")%> <% 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")%> <% 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")%> <% 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")%> <% 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")%> <% 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")%> <% 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")%> <% 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")%> <% 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")%> <% objEspacos.movenext Loop %> <% set objEspacos = nothing %>