<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT endereco, descricao FROM Links ORDER BY endereco" set RS = Conn.execute (query) %>

<% if RS.EOF then Response.write("") else while (not RS.EOF) %> <% RS.MoveNext wEnd end if %> Não há Link disponível. " class="textos" target="_blank"><%= PegaDoBD(RS("endereco")) %>   <%= PegaDoBD(RS("descricao")) %>

<% set RS = nothing Conn.close set Conn = nothing %>