ABRAFILTROS

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> ABRAFILTROS

A Abrafiltros Associados Convênios Diretoria História

Feiras e eventos Links

Na mídia

<% Set rectipo = Server.CreateObject ("ADODB.Recordset") sql = "SELECT top 4 * FROM noticias order by data desc" rectipo.open sql, conbanco %>

<%do while not rectipo.eof%> <%rectipo.movenext loop%>

"><%= rectipo ("titulo")%>

<% session.LCID = 1046 strData = Month(now)&"/"&Day(now)&"/"& Year(Now) Set rectipo = Server.CreateObject ("ADODB.Recordset") sql = "SELECT top 4 * FROM agenda WHERE data >= #"& strData & "# order by data asc" rectipo.open sql, conbanco Do While not rectipo.EOF ' Loop (for) para controle de tabela for i=1 to 2 ' faz com que os registros apareção de 3 em 3 data = rectipo ("data") dataAtual = data dayData = day(dataAtual) monthData = month(dataAtual) yearData = year(dataAtual) ano = right (yearData, 2) If rectipo.EOF then Exit for End if %>

<%= monthName (monthData, true)%>/ <%response.Write ano%>

Dia: <% response.Write dayData%>

<% rectipo.MoveNext next %> <%Loop%>


		Conheca nosso estatuto		Feiras e Eventos Links		Se espaço para falar com a associação e enviar suas dúvidas e sugestões