<% Dim noticia_1 Set noticia_1 = Server.CreateObject("ADODB.Recordset") noticia_1.ActiveConnection = MM_conecxao_STRING noticia_1.Source = "SELECT condominio.id_condominio, condominio.Razao, condominio.Nome, condominio.habilitado FROM condominio WHERE (((condominio.habilitado)=1)) order by Razao desc" noticia_1.CursorType = 0 noticia_1.CursorLocation = 3 noticia_1.LockType = 1 noticia_1.Open() %>

<% while not noticia_1.eof %> <% noticia_1.movenext() wend %> "><%=noticia_1("nome")%> + Voltar