Perfeita União

<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT idPastMaster, nome, anoinicio, anofim FROM PastMasters ORDER BY anofim DESC" set RS = Conn.execute (query) %> Perfeita União

<% if RS.EOF then Response.write("

Não há Palavra do Venerável disponível.

") else while (not RS.EOF) %>

Nome:

')"><%= PegaDoBD(RS("nome")) %>

Periodo:

<%= PegaDoBD(RS("anoinicio")) %>-<%= PegaDoBD(RS("anofim")) %>

<% RS.MoveNext wEnd end if %>

<% set RS = nothing Conn.close set Conn = nothing %>