Stuff

		<% 
			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 
		        %></div><% end if %>
                <div id="<%= Replace(minRS("min_nome")," ","") %>" style="display:none;">
                <div class="item" onclick="ministShow('<%= Replace(minRS("min_nome")," ","") %>');" onMouseOver="dentro(this);" onMouseOut="fora(this);"><%= minRS("min_nome") %></div>
		<% 
                 nomeAtual = minRS("min_nome") 
                 end if
                %>
					<div class="item">
						<img src="imagens/layout2/seta.gif" border="0" /> <%= minRS("mis_nome") %> <%= cont %>
					</div>
		
		<%
			minRS.movenext
			loop
			if (nomeAtual <> "") then response.write("</div>") end if
			minRS.close : set minRS = Nothing %>