<% qMRS = " SELECT s.mis_id,s.mis_nome,m.min_nome,m.min_id " qMRS = qMRS & " FROM tb_MinistSub s INNER JOIN " qMRS = qMRS & " tb_Ministerios m ON s.min_id = m.min_id " qMRS = qMRS & " ORDER BY m.min_nome " set minRS = conexao.execute(qMRS) nomeAtual = "" do until (minRS.eof) if (minRS("min_nome") <> nomeAtual) then if (nomeAtual <> "") then %> <% end if %>

');" onMouseOver="dentro(this);" onMouseOut="fora(this);"><%= minRS("min_nome") %>

" style="display:none;"> <% nomeAtual = minRS("min_nome") %>

<%= minRS("mis_nome") %> <%= cont %>

<% end if%> <% minRS.movenext loop if (nomeAtual <> "") then response.write("

") end if minRS.close : set minRS = Nothing %>