%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select data, texto, ID " sql = sql & " FROM tb_agenda " if request("txtdata") <> "" Then sql = sql & " WHERE Mid(data,4,2) = '"&Request("txtdata")&"'" else sql = sql & " WHERE CInt(Mid(data,4,2)) >= "&Month(now)&" " end if sql = sql & " ORDER BY CDate(data) " Rs.Open SQL, Conexao, 3, 3 %>
AGENDA GPME
Atenção! novo espaço de reuniões do GPME. Horário: 20:00 hrs.
Local: 1º GB - Rua Domingos de Morais, 2329 - Corpo de Bombeiros da Vila Mariana
A um quarteirão do Metro Santa Cruz, na esquina da Rua Santa Cruz com Domingos de Morais.
| Data | Atividade |
| <%=MonthName(Mid(Rs(0),4,2))%> | |
| <%=Rs(0)%> - <%=WeekdayName(WeekDay(Rs(0)))%> | <%=Rs(1)%> |