<% id_categoria = Request.Querystring("id") Set cs_Produtos = Server.CreateObject("ADODB.Recordset") cs_Produtos.Open "select * FROM produtos Where id_categoria = "&id_categoria&"", Conexao exibir = "Sim" Set cs_Produtos01 = Server.CreateObject("ADODB.Recordset") cs_Produtos01.Open "select * FROM produtos Where exibir = '"&exibir&"' LIMIT 1", Conexao Set cs_Produtos02 = Server.CreateObject("ADODB.Recordset") cs_Produtos02.Open "select * FROM categoriasprodutos Where id = "&id_categoria&" order by id desc", Conexao While not cs_Produtos02.EOF nome_do_produto02 = cs_Produtos02("nome") cs_Produtos02.MoveNext() Wend %> Produtos - <%=nome_do_produto02%>

(31) 3445-7291     Art Plus Camisetas 99271-6815

Art Plus Camisetas
<%While not cs_Produtos01.EOF%>

<%=cs_Produtos01("nome")%>

<%=cs_Produtos01("descricao")%>

ICON
ICON
ICON
<%cs_Produtos01.MoveNext Wend%>