<%@ Language=VBScript %>
<% option explicit
dim oFrm
set oFrm=server.CreateObject("FRM.Main")
%>
Vá à Festa do Motociclismo e experimente uma das suas motas favoritas na pista
do Autódromo Fernanda Pires da Silva - Estoril.
Tanto no Sábado como no Domingo poderão os participantes usufruir da
possibilidade de experimentar as últimas novidades das marcas de motos. Para
tal será necessário fazerem uma reserva relativa à moto pretendida. O
Drive-Test consistirá numa volta completa ao circuito.
Para
realizar um Drive-Test é obrigatório que o interessado se sujeite
previamente a um teste de álcool.
Vamos
poder desenvolver aproximadamente 1000 Drive-Tests, o que embora seja, um
número importante, não permitirá fazer um Drive-Test
generalizado.
Como
facilmente se compreende toda a montagem e desenvolvimento dos Drive-Tests
será feito com grande rigor e disciplina - Ver Horário.
<%
dim arrMarcas
arrMarcas=oFrm.FetchSQL(Application("TsrFMConn"), "SELECT tName, IDMarca FROM t_tsrFMMarca WHERE IDActividade=1 ORDER BY iOrder")
%>
<% if UBOUND(arrMarcas, 2)<0 then %>
Brevemente teremos aqui as
<% end if%>
Marcas e Modelos disponíveis para Drive-Tests.
<%
dim iMarca
for iMarca=0 to UBOUND(arrMarcas,2)
dim arrModelos
arrModelos=oFrm.FetchSQL(Application("TsrFMConn"), "SELECT tName FROM t_tsrFMModelo WHERE IDMarca=" & arrMarcas(1, iMarca) & " ORDER BY iOrder")
dim iModelo
%>
<%=arrMarcas(0, iMarca)%>
|
<% for iModelo=0 to UBOUND(arrModelos,2) step 2 %>
<%=arrModelos(0, iModelo)%>
<% next %>
|
<% for iModelo=1 to UBOUND(arrModelos,2) step 2 %>
<%=arrModelos(0, iModelo)%>
<% next %>
|
|
<%
next
%>
<% set oFrm=nothing%>
|