<% 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 %>

" style="display:none;">

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

<% nomeAtual = minRS("min_nome") end if %>

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

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

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