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