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
Eco Power 2008

Calendário de eventos
APVE

Concurso de monografias em veículos elétricos
EVS 24

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

<%=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 ABVEMais 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.