<% Set rsCa = Server.Createobject("ADODB.Recordset") rsCa.open "select * from parceiro_categoria order by nome asc", conn, 1, 3 while not rsCa.eof nomeCatPar = rsCa("nome") %> <%= nomeCatPar %>
<% Set rsDk = Server.Createobject("ADODB.Recordset") rsDk.open "select * from parceiros where categoria like '"&nomeCatPar&"' order by nome asc", conn, 1, 3 while not rsDk.eof logo = rsDk("logo") if logo = "n" then logo = "pixel.gif" end if if fundo = "#FCDB69" then fundo = "#FEF9BA" else fundo = "#FCDB69" end if %>
<%= rsDk("nome") %>
<%= rsDk("texto") %>
<% rsDk.movenext wend %>
<% rsCa.movenext wend %>