<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% area = 4 'controle de exibicao de menus e estado do botao no topo sql = "SELECT *,data_ini, data_fim FROM adm_agenda WHERE data_fim >= "& date() &" ORDER BY STR_TO_DATE(data_ini, '%d/%m/%Y') ASC" 'Response.Write(sql) Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn %> ACT | Aliança de Controle do Tabagismo | Comunicação
 


 
Principal > Comunicação > Agenda

aGENDA

<% if rs.EOF and rs.BOF then Response.write("Nenhum evento cadastrado.") else while not RS.EOF %>

"><%= rs("nome")%>
<%if rs("data_ini") <> rs("data_fim") then%>de <%=rs("data_ini")%> a <%=rs("data_fim")%><%else%><%=rs("data_ini")%><%end if%> - <%=rs("estab")%> <% RS.Movenext WEND END IF %>

 
 
<% Rs.close Set RS = nothing Conn.close Set Conn = nothing %>