<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID=session("ID_Cliente") wSQL="SELECT P.ATIVIDADE FROM PROFISSIONAIS P WHERE Status ='A' GROUP BY P.ATIVIDADE ORDER BY P.ATIVIDADE" Set TabProf = Database.Execute(wSQL) wSQL="SELECT LC.ATIVIDADE FROM LOJAS_CREDENCIADAS LC GROUP BY LC.ATIVIDADE ORDER BY LC.ATIVIDADE " Set TabLojas = Database.Execute(wSQL) %>

Rede Credenciada
 
 
<% While NOT TabProf.EoF %> <% TabProf.MoveNext %> <% Wend %>
Área da Saúde
"> <%=TabProf("ATIVIDADE")%>
<% While NOT TabLojas.EoF %> <% TabLojas.MoveNext %> <% Wend %>
Lojas Credenciadas
"> <%=TabLojas("Atividade")%>