<% set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") %> .... <% sql = "select titulo, codigo from conteudo where status = 'A' and area = 'C' order by titulo" set rscarreira = conexao.Execute(sql) while not rscarreira.eof %> <% rscarreira.movenext wend %>


"><%=rscarreira("titulo")%>
<% set rscarreira = nothing set conexao = nothing %>