% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT titulo, descricao FROM Historia" set RS = Conn.execute (query) %>
Não há História disponível.
" & PegaDoBD(RS("titulo")) & "
" & PegaDoBD(RS("descricao")) & "