<% 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á Past-Master disponível.

") else while (not RS.EOF) %>
<% nomeDoArquivo = "pastmaster" & PegaDoBD(RS("idPastMaster")) MostraFoto nomeDoArquivo, "foto" %>  
Nome:
')"><%= PegaDoBD(RS("nome")) %>
Período:
<%= PegaDoBD(RS("anoinicio")) %> - <%= PegaDoBD(RS("anofim")) %>
<% RS.MoveNext if not RS.EOF then Response.write("
") wEnd end if %>
<% set RS = nothing Conn.close set Conn = nothing %>