%
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("titulo")%>
|
<%
rscarreira.movenext
wend
%>
<%
set rscarreira = nothing
set conexao = nothing
%>