Perfeita União

<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT data, descricao FROM Agenda WHERE exibir<>0 ORDER BY data DESC" set RS = Conn.execute (query) %> Perfeita União

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

Não há Agenda disponível.

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

<% data = PegaDoBD(RS("data")) %>

Data:	<%= day(data) & "/" & month(data) & "/" & year(data) %>
Evento:	<%= PegaDoBD(RS("descricao")) %>

<% RS.MoveNext if (not RS.EOF) then Response.write("
") wEnd end if %>

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