<% set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") %> <% sql = "select top 15 pergunta, codigo from duvidas where status = 'A' order by data desc" set rsservico = conexao.Execute(sql) while not rsservico.eof %> <% rsservico.movenext wend %>

Veja abaixo as perguntas frequentes:                                     Envie sua dúvida

"><%=rsservico("pergunta")%>

<% set rsservico = nothing set conexao = nothing %>