<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT idTrabalho, nomeDoIrmao, titulo, resumo, data FROM Trabalhos WHERE exibir<>0 ORDER BY data DESC" set RS = Conn.execute (query) %> Perfeita União
<% if RS.EOF then Response.write("

Não há Trabalho disponível.

") else while (not RS.EOF) %> <% data = PegaDoBD(RS("data")) %>
Nome do trabalho:
')"><%= PegaDoBD(RS("titulo")) %>
Breve Descrição:
<%= PegaDoBD(RS("resumo")) %>
Data da Publicação:
<%= day(data) & "/" & month(data) & "/" & year(data) %>
Irmão:
<%= PegaDoBD(RS("nomeDoIrmao")) %>

<% RS.MoveNext wEnd end if %>
<% set RS = nothing Conn.close set Conn = nothing %>