<% Dim noticia_1 Set noticia_1 = Server.CreateObject("ADODB.Recordset") noticia_1.ActiveConnection = MM_conecxao_STRING noticia_1.Source = "SELECT img_p, empresa.id_empresa, empresa.Razao, empresa.Nome, empresa.habilitado FROM empresa WHERE (((empresa.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 %> ">" width="100" border="0" align="left"> "><%=noticia_1("razao")%> + Voltar