<%@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
%>
Untitled Document
AGENDAGPME
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
<% mes = ""
While NOT Rs.EOF
if mes <> Mid(Rs(0),4,2) Then%>
<%=MonthName(Mid(Rs(0),4,2))%>
<%end if%>
<%=Rs(0)%> - <%=WeekdayName(WeekDay(Rs(0)))%>
<%=Rs(1)%>
<%
mes = Mid(Rs(0),4,2)
Rs.MoveNext()
Wend
%>
<%Conexao.Close()
Set Conexao = Nothing
Set Rs = Nothing
%>