<%@language="vbscript"%> <%conn.open(vConexao) sql="select * from agenda order by agenda_data desc" set RSAgenda = conn.execute(sql) %> Untitled Document
<%if RSAgenda.eof then response.write("
Nenhuma Atividade Cadastrada!!!
") else cont=0 Do while not RSAgenda.eof%>
<%=RSAgenda("agenda_data")%>-<%=RSAgenda("agenda_titulo")%>

<%=RSAgenda("agenda_descricao")%>

Local: <%=RSAgenda("agenda_local")%>
<%cont=cont+1 RSAgenda.movenext loop%> <%end if%>