<% Dim RdNbr Randomize RdNbr = Int (22*Rnd+1) if RdNbr < 10 then ImgNbr = "0" & RdNbr else ImgNbr = RdNbr end if %>
www.ABVE.org.br

Español   English


Veículos elétricos

Quero comprar
Quero alugar
Quem fabrica?
Componentes
Empilhadeiras/paleteiras
Meu veículo elétrico
Faça seu VE
Perguntas Frequentes
Blog do Veículo Elétrico
Calendário de eventos APVE
EVS 24
Concurso de monografias em veículos elétricos

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

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") Exibi = rs("Exib") num = num+1 ndiasp = 365*CInt(Sanoi) + 30*CInt(Smesi) + CInt(Sdiai) difdias = ndiash - ndiasp if (Exibi = "Sim") AND (difdias <= 14) 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
Veículos elétricos pedem passagem
Veja o vídeo
Receba a Newsletter em seu email
Mais lidos no site da ABVE
Web
ABVE
Blog do Veículo Elétrico
APVE Associação Portuguesa do Veículo Elétrico


© 2006 - 2008 ABVE. Todos os direitos reservados.