|
<%
sql = "select titulo, codigo from conteudo where status = 'A' and area = 'D' order by titulo"
set rsservico = conexao.Execute(sql)
while not rsservico.eof
%>
"><%=rsservico("titulo")%>
|
<%
rsservico.movenext
wend
%>
<%
set rsservico = nothing
set conexao = nothing
%>