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

Error processing SSI file
Noticias y otras publicaciones

Taxis de Nueva York serán reemplazados por autos híbridos


En Chile circulam unos 130 autos con tecnología híbrida


Evaluado comportamiento del Toyota Prius


GM presentó su primer auto híbrido producido en México


El híbrido Toyota Prius podrá hacer de taxi en Madrid


México montará una flota oficial con 1.000 autos eléctricos


Mueren dos millones de personas al año por contaminación: OMS


II Raid “Carretera Carbonera” de Vehículos Eléctricos


Moto solar urbana


Toyota ya ha vendido mas de un millón de vehículos híbridos


Los taxis de Nueva York serán ecológicos a partir del 2012


Brasil y Paraguay producirán un Fiat Palio Elétrico


ABVE y INEE realizan, en Rio de Janeiro, Brasil, el VE 2007
- 5° Seminario y Exposición de Vehículos Eléctricos -


Asociación Brasileña del Vehículo Eléctrico está constituida en Rio de Janeiro


            Más noticias y otras publicaciones (en portugués)

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
Error processing SSI file