<% set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") sql = "select * from links order by titulo" set rslink = conexao.Execute(sql) set conexao = nothing %> <% while not rslink.eof %> <% rslink.movenext wend set rslink = nothing %>

<%=rslink("titulo")%>	" target="_blank"><%=rslink("link")%>