<% 'seleciona os Estados SQL = "select * from Regional" Set rstRegional = dbCNBB.Execute(SQL) %> <% 'seleciona as Pastorais e Movimentos SQL = "select * from Editoria" Set rstEditoria = dbCNBB.Execute(SQL) %> <% 'seleciona os Colunistas SQL = "select * from Colunista" Set rstColunista = dbCNBB.Execute(SQL) %>

Estados<%do while not rstRegional.eof%> "><%=rstRegional("Nomereg")%> <%rstRegional.movenext loop%>		Pastorais e Movimentos<%do while not rstEditoria.eof%>"><%=rstEditoria("Nomeedit")%> <%rstEditoria.movenext loop%>