ABRAFILTROS

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

A Abrafiltros Associados Convênios Diretoria História

Feiras e eventos Links

Associados

O grupo de associados da ABRAFILTROS é formado pelas principais empresas, fabricantes, distribuidores de todo o Brasil, participando da Associação que representa o segmento de filtros e seus sistemas, para os setores automotivo e industrial.

Adamas S/A - MD Papéis

Ahlstrom Louveira Ltda.

Apexfil Ind. e Com. Ltda.

Cummins Filtration do Brasil

DBD Filtros e Serviços Ltda.

Donaldson do Brasil

FilterTower Indústria e Comércio Distribuição de Matérias-Primas Ltda.

Filtros Mil - M.S.B. Indústria e Comércio Ltda.

HB Soluções em Ar Comprimido Ltda.

Hidro Filtros do Brasil

Hydac Tecnologia Ltda.

L3ppm - Revista Meio Filtrante

Mahle Metal Leve S.A.

Mann+Hummel

Parker Hannifin Ind. e Com. Ltda. - Divisão Filtros

Poli Filtro Com. E Rep. de Peças Ltda.

Polytec C.E.A.I. Ltda.

Unotech Importação e Comércio Ltda.

<% 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