ABVE - Hable con nosotros

Português English

Vehículos eléctricos

Comprar

Alquilar

Fabricación

Asistencia Técnica

Componentes

Carretillas elevadoras

Mi vehículo eléctrico

Haga su VE

Próximos Eventos

Hable con nosotros

Antonio Nunes Jr.

Director-presidente

Teléfono/fax: +55 (21) 2510-3474

E-mail:

Dirección

Rua Manuel de Carvalho, 16 - 8^o andar

Centro – Rio de Janeiro – RJ

Brasil

CEP: 20031-110

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

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

Web

ABVE

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