<% Dim RdNbr Dim Max Max = 41 Randomize if Rnd = 1 then ImgNbr = 0 else RdNbr = Int (Max*Rnd+1) end if if RdNbr < 10 then ImgNbr = "0" & RdNbr else ImgNbr = RdNbr end if %>
www.ABVE.org.br
Español   English
Busca



Veículos elétricos
Incentivos
Quero comprar
Quero alugar
Quem fabrica?
Assistência Técnica
Componentes
Empilhadeiras/paleteiras
Meu veículo elétrico
Faça seu VE
Perguntas Frequentes

Próximos Eventos

APVE
Associação Portuguesa do Veículo Elétrico


Associados

Associados pessoas jurídicas: 30
Platina Fundadores

Ampla Energia e Serviços S.A.

Companhia de Eletricidade do Estado da Bahia

CPFL Comercialização Brasil Ltda.

CEMIG Distribuição S.A.

WEG Automação Ltda.

UTE Norte Fluminense

Platina

Eletra Industrial

Nato

Instituto Nacional de Eficiência Energética - INEE

Universidade do Estado do Rio de Janeiro - UERJ

Ouro Fundadores

Máquinas Agrícolas Jacto S/A

Ingersoll Rand do Brasil Ltda

NovoCell Sistemas de Energia S.A.

Saturnia Sistemas de Energia Ltda.

Ouro

Electric Power Research Institute

Prata Fundadores

Auge Design

Ywy C& S

Avibrás Indústria Aeroespacial S.A.

GLOBO Comunicação e Participações S/A

NEVSTAR Representação e Serviços Ltda.

Prata

AES Eletropaulo

GPS Electric Movement

Grupo Pioneira

Ecobras Veículos Especiais

Light Serviços de Eletricidade S.A.

CAM Brasil Multiserviços Ltda.

Club Car INC

MV5 Comércio Ltda.

Entidades de Direito Público

Escola Politécnica - Universidade Federal do Rio de Janeiro (UFRJ)

Centro Federal de Educação Tecnológica Celso Suckow da Fonseca (CEFET/RJ)

Fundação Estadual de Engenharia do Meio Ambiente - FEEMA


Associados pessoas físicas: 35
Individuais Fundadores: 18
Individuais: 11
Estudantes Fundadores: 2
Estudantes: 4

<% Dim classe(6) classe(0)="Brasil" classe(1)="Híbridos e Plugins" classe(2)="Duas rodas, triciclos e VEs Leves" classe(3)="VEs a bateria e trólebus" classe(4)="Componentes" classe(5)="Políticas, incentivos e legislação" classe(6)="VEs e a Rede Elétrica" classei = request.querystring("classe") Dim sclassei(6) %>
News

<% ndiash = 365 * CInt(Right(year(now),2)) + 30 * month(now) + day(now) Set Connec = Server.CreateObject("ADODB.Connection") Connec.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\abve1\dados\VENews.mdb;" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT * FROM NewsMid", Connec,3,3 Set rs = Connec.Execute ("SELECT * FROM NewsMid ORDER BY Codigo DESC") rs.MoveFirst num=0 while NOT rs.EOF codigoi = rs("Codigo") IdAnoi = rs("IdAno") IdSeqi = rs("IdSeq") Imagemi = rs("Imagem") Titi = rs("Tit") Chamadai = rs("Chamada") Fontei = rs("Fonte") Pdiai = rs("Pdia") Pmesi = rs("Pmes") Panoi = rs("Pano") Lingi = rs("Ling") Linki = rs("Link") Sdiai = rs("Sdia") Smesi = rs("Smes") Sanoi = rs("Sano") sclassei(0) = rs("Bra") sclassei(1) = rs("Hibplug") sclassei(2) = rs("VEleve") sclassei(3) = rs("Battrol") sclassei(4) = rs("Comp") sclassei(5) = rs("Pol") sclassei(6) = rs("V2G") Exibi = rs("Exib") num = num+1 ndiasp = 365*CInt(Sanoi) + 30*CInt(Smesi) + CInt(Sdiai) difdias = ndiash - ndiasp if (Exibi = "Sim") AND (difdias <= 15) then %>

<% if Imagemi <> "" then %>
<% end if %> <%=Titi %>
- <%=Fontei %> - <% if Pdiai <> 0 then if Pdiai < 10 then %><%="0" & Cstr(Pdiai) %><% else %><%=Pdiai %><% end if%>/<% if Pmesi < 10 then %><%="0" & CStr(Pmesi) %><% else %><%=Pmesi %><% end if%>/<% if Panoi < 10 then %><%="0" & CStr(Panoi) %><% else %><%=Panoi %><% end if%> <% else %><%=mesi %>/<%=anoi %><% end if %> (<%=Lingi %>)

<% end if %> <% rs.MoveNext Wend rs.close () set rs = nothing Connec.Close () Set Connec = nothing %>
+
News
+ News
News por Categoria
Brasil
Híbridos e Plugins
Duas rodas, triciclos e leves
VEs a bateria e trólebus
Componentes e Tecnologias
Políticas, legislação e incentivos
VEs e a rede elétrica


Receba a Newsletter em seu email
Mais lidos no site da ABVE

© 2006 - 2011 ABVE. Todos os direitos reservados.