<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT titulo, descricao FROM Historia" set RS = Conn.execute (query) %> Perfeita União
<% if RS.EOF then Response.write("

Não há História disponível.

") else Response.write("

" & PegaDoBD(RS("titulo")) & "

") Response.write("

" & PegaDoBD(RS("descricao")) & "

") end if %>
<% set RS = nothing Conn.close set Conn = nothing %>