|
<% if trim(xIdioma) = "" then %>
 |
 |
<% elseif xIdioma = "i" then %>
 |
|
<% else %>
|
|
<% end if %>
|
|
| |
| |
| |
| |
| |
| |
| |
| <% = xMenu08 %> |
| |
| |
| | |
| |
| |
| <% = xMenu11 %> |
| |
| | |
| <% = xMenu12 %> |
| |
| |
| | |
| <% = xMenu13 %> |
| |
| |
| | |
| <% = xMenu14 %> |
| |
| | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
<%
sql = "SELECT top 10 www, Imagem1 FROM Meteorologia"
Set rsMeteorologia = Dados.Execute(sql)
If not rsMeteorologia.eof then
vetFotos = rsMeteorologia.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 10
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
for ind = 1 to Mostra
www = vetFotos(0,rndCodigos(ind) -1)
Imagem1 = vetFotos(1,rndCodigos(ind) -1)
%>
<%
next
set vetFotos = Nothing %>
<% end if
rsMeteorologia.Close
Set rsMeteorologia = Nothing %>
|
|
|
<%
if trim(rsControles("FraseHome" & xIdioma)) <> "" then %>
|
<%= rsControles("FraseHome" & xIdioma) %>
|
<%
xTextoHome = rsControles("TextoHome" & xIdioma)
xTextoHome = Replace(xTextoHome & "",vbCRLF,"
" & vbCRLF)
If trim(rsControles("Imagem3")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = xTextoHome %>
&Idioma=<% = xIdioma %>" class=link><% = xMaisInformacoes %>
|
<%
end if
%>
|
<%
sql = "SELECT * FROM O_Curso"
Set rsO_Curso = Dados.Execute(sql)
xDescricao1 = rsO_Curso("Descricao" & xIdioma & "1")
xDescricao1 = Replace(xDescricao1 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao1) <> "" then %>
|
<% = xMenu01 %>
|
<%
If trim(rsO_Curso("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Curso("Frase1" & xIdioma) %> - <% = left(xDescricao1,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM Treinamento_Acrobacia"
Set rsTreinamento_Acrobacia = Dados.Execute(sql)
xDescricao2 = rsTreinamento_Acrobacia("Descricao" & xIdioma & "1")
xDescricao2 = Replace(xDescricao2 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao2) <> "" then %>
|
<% = xMenu02 %>
|
<%
If trim(rsTreinamento_Acrobacia("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsTreinamento_Acrobacia("Frase1" & xIdioma) %> - <% = left(xDescricao2,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM O_Local"
Set rsO_Local = Dados.Execute(sql)
xDescricao3 = rsO_Local("Descricao" & xIdioma & "1")
xDescricao3 = Replace(xDescricao3 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao3) <> "" then %>
|
<% = xMenu03 %>
|
<%
If trim(rsO_Local("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Local("Frase1" & xIdioma) %> - <% = left(xDescricao3,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM A_Estrutura"
Set rsA_Estrutura = Dados.Execute(sql)
xDescricao4 = rsA_Estrutura("Descricao" & xIdioma & "1")
xDescricao4 = Replace(xDescricao4 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao4) <> "" then %>
|
<% = xMenu04 %>
|
<%
If trim(rsA_Estrutura("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsA_Estrutura("Frase1" & xIdioma) %> - <% = left(xDescricao4,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM A_Equipe"
Set rsA_Equipe = Dados.Execute(sql)
xDescricao5 = rsA_Equipe("Descricao" & xIdioma & "1")
xDescricao5 = Replace(xDescricao5 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao5) <> "" then %>
|
<% = xMenu05 %>
|
<%
If trim(rsA_Equipe("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsA_Equipe("Frase1" & xIdioma) %> - <% = left(xDescricao5,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM O_Siv"
Set rsO_Siv = Dados.Execute(sql)
xDescricao6 = rsO_Siv("Descricao" & xIdioma & "1")
xDescricao6 = Replace(xDescricao6 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao6) <> "" then %>
|
<% = xMenu07 %>
|
<%
If trim(rsO_Siv("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Siv("Frase1" & xIdioma) %> - <% = left(xDescricao6,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM O_Voo_Rebocado where categoria = 1"
Set rsO_Voo_Rebocado1 = Dados.Execute(sql)
xDescricao7 = rsO_Voo_Rebocado1("Descricao" & xIdioma & "1")
xDescricao7 = Replace(xDescricao7 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao7) <> "" then %>
|
<% = xMenu08 %> - <% = xMenu08a %>
|
<%
If trim(rsO_Voo_Rebocado1("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Voo_Rebocado1("Frase1" & xIdioma) %> - <% = left(xDescricao7,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM O_Voo_Rebocado where categoria = 2"
Set rsO_Voo_Rebocado2 = Dados.Execute(sql)
xDescricao8 = rsO_Voo_Rebocado2("Descricao" & xIdioma & "1")
xDescricao8 = Replace(xDescricao8 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao8) <> "" then %>
|
<% = xMenu08 %> - <% = xMenu08b %>
|
<%
If trim(rsO_Voo_Rebocado2("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Voo_Rebocado2("Frase1" & xIdioma) %> - <% = left(xDescricao8,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT * FROM O_Voo_Rebocado where categoria = 3"
Set rsO_Voo_Rebocado3 = Dados.Execute(sql)
xDescricao9 = rsO_Voo_Rebocado3("Descricao" & xIdioma & "1")
xDescricao9 = Replace(xDescricao9 & "",vbCRLF,"
" & vbCRLF)
if trim(xDescricao9) <> "" then %>
|
<% = xMenu08 %> - <% = xMenu08c %>
|
<%
If trim(rsO_Voo_Rebocado3("Imagem1")) <> "" then %>
 " width="100" alt="" hspace="10" vspace="2" border="0" align="left">
<% end if %>
<% = rsO_Voo_Rebocado3("Frase1" & xIdioma) %> - <% = left(xDescricao9,200) %>... <% = xMaisInformacoes %>
|
<%
end if
sql = "SELECT Codigo, Imagem1 FROM Galerias_videos where Destaque = 'S'"
Set rsVideos = Dados.Execute(sql)
If not rsVideos.eof then
vetFotos = rsVideos.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 1
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
for ind = 1 to Mostra
Imagem1 = vetFotos(1,rndCodigos(ind) -1)
%>
|
<%
sql = "SELECT Codigo, Nome_Manobra" & xIdioma & " FROM Manobras order by sequencia"
Set rsManobras = Dados.Execute(sql)
If not rsManobras.eof then
vetFotos = rsManobras.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsManobras.Close
Set rsManobras = Nothing
sql = "SELECT Codigo, Titulo" & xIdioma & " FROM Proximas_Turmas where Data >= Now order by data"
Set rsProximas_Turmas = Dados.Execute(sql)
If not rsProximas_Turmas.eof then
vetFotos = rsProximas_Turmas.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsProximas_Turmas.Close
Set rsProximas_Turmas = Nothing
%>
<%
sql = "SELECT top 1 * FROM Enquetes order by codigo desc"
Set rsEnquete = Dados.Execute(sql)
If Not rsEnquete.Eof Then
xCodigo = rsEnquete("Codigo") %>
<% End If
rsEnquete.Close
Set rsEnquete = Nothing
sql = "SELECT top 5 * FROM Eventos where data >= now order by data, codigo"
Set rsEventos = Dados.Execute(sql)
if not rsEventos.eof then
%>
<%
end if
rseventos.Close
Set rseventos = Nothing
sql = "SELECT Codigo, Titulo" & xIdioma & " FROM Artigos"
Set rsArtigos = Dados.Execute(sql)
If not rsArtigos.eof then
vetFotos = rsArtigos.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsArtigos.Close
Set rsArtigos = Nothing
sql = "SELECT Codigo, Titulo" & xIdioma & " FROM Curiosidades"
Set rsCuriosidades = Dados.Execute(sql)
If not rsCuriosidades.eof then
vetFotos = rsCuriosidades.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsCuriosidades.Close
Set rsCuriosidades = Nothing
sql = "SELECT Titulo" & xIdioma & ", WWW FROM Links"
Set rsLinks = Dados.Execute(sql)
If not rsLinks.eof then
vetFotos = rsLinks.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsLinks.Close
Set rsLinks = Nothing
sql = "SELECT Codigo, Cidade, Pais FROM Locais"
Set rsLocais = Dados.Execute(sql)
If not rsLocais.eof then
vetFotos = rsLocais.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsLocais.Close
Set rsLocais = Nothing
sql = "SELECT Codigo, Cat, Nome" & xIdioma & " FROM Records"
Set rsRecords = Dados.Execute(sql)
If not rsRecords.eof then
vetFotos = rsRecords.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
|
<% = xMenu13b %> |
<%
for ind = 1 to Mostra
codigo = vetFotos(0,rndCodigos(ind) -1)
cat = vetFotos(1,rndCodigos(ind) -1)
Nome = vetFotos(2,rndCodigos(ind) -1)
%>
<% if cat = 1 then %>
<% = Nome %>
<% else %>
<% = Nome %>
<% end if %>
<%
next
ind = ind - 1
cat = vetFotos(0,rndCodigos(ind) -1)
set vetFotos = Nothing
%>
<% if cat = 1 then %>
<% = xMais %> <% = xMenu13b %>
<% else %>
<% = xMais %> <% = xMenu13b %>
<% end if %>
|
<%
end if
rsRecords.Close
Set rsRecords = Nothing
%>
<%
sql = "SELECT Codigo, Titulo" & xIdioma & ", Descricao" & xIdioma & ", Imagem1 FROM Literatura"
Set rsLiteratura = Dados.Execute(sql)
If not rsLiteratura.eof then
vetFotos = rsLiteratura.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 2
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
|
<% = xMenu18 %> |
<% for ind = 1 to Mostra
codigo = vetFotos(0,rndCodigos(ind) -1)
Titulo = vetFotos(1,rndCodigos(ind) -1)
Descricao = vetFotos(2,rndCodigos(ind) -1)
xDescricao = Descricao
xDescricao = Replace(xDescricao & "",vbCRLF,"
" & vbCRLF)
Imagem1 = vetFotos(3,rndCodigos(ind) -1) %>
<% = Titulo %> - <% = left(xDescricao,100) %> ...
<%
next
set vetFotos = Nothing %>
<% = xMais %> <% = xMenu18 %>
|
<%
end if
rsLiteratura.Close
Set rsLiteratura = Nothing
%>
<%
sql = "SELECT Codigo, Cat, Categoria" & xIdioma & " FROM Ranking_Controle"
Set rsRanking = Dados.Execute(sql)
If not rsRanking.eof then
vetFotos = rsRanking.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsRanking.Close
Set rsRanking = Nothing
%>
<%
sql = "SELECT Codigo, Cat, Categoria" & xIdioma & " FROM Conquista_Controle where Cat = 1"
Set rsConquista = Dados.Execute(sql)
If not rsConquista.eof then
vetFotos = rsConquista.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
|
<% = xMenu12c %> - <% = xMenu12 %> |
<% for ind = 1 to Mostra
codigo = vetFotos(0,rndCodigos(ind) -1)
cat = vetFotos(1,rndCodigos(ind) -1)
Categoria = vetFotos(2,rndCodigos(ind) -1)
%>
<% = Categoria %>
<%
next
ind = ind - 1
cat = vetFotos(0,rndCodigos(ind) -1)
set vetFotos = Nothing
%>
<% = xMais %> <% = xMenu12c %> - <% = xMenu12 %>.
|
<%
end if
rsConquista.Close
Set rsConquista = Nothing
%>
<%
sql = "SELECT Codigo, Cat, Categoria" & xIdioma & " FROM Conquista_Controle where Cat = 2"
Set rsConquista = Dados.Execute(sql)
If not rsConquista.eof then
vetFotos = rsConquista.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
|
<% = xMenu13c %> - <% = xMenu13 %> |
<% for ind = 1 to Mostra
codigo = vetFotos(0,rndCodigos(ind) -1)
cat = vetFotos(1,rndCodigos(ind) -1)
Categoria = vetFotos(2,rndCodigos(ind) -1)
%>
<% = Categoria %>
<%
next
ind = ind - 1
cat = vetFotos(0,rndCodigos(ind) -1)
set vetFotos = Nothing
%>
<% = xMais %> <% = xMenu13c %> - <% = xMenu13 %>
|
<%
end if
rsConquista.Close
Set rsConquista = Nothing
sql = "SELECT Codigo, Nome_Emergencia" & xIdioma & " FROM Emergencias order by sequencia"
Set rsEmergencias = Dados.Execute(sql)
If not rsEmergencias.eof then
vetFotos = rsEmergencias.getrows
xMax = Ubound(vetFotos,2) + 1
Mostra = 5
%>
<%
if xMax < Mostra then
mostra = xMax
end if
Redim rndCodigos(Mostra)
For x = 1 to Mostra
rndCodigos(x) = 0
next
tb = 1
do while tb < Mostra + 1
randomize(timer * timer)
x = int(rnd * xMax) + 1
if x = 0 then
x = 1
elseif x > xMax Then
x = xMax
end if
for k = 1 to tb
if x = rndCodigos(k) then
exit for
end if
if rndCodigos(k) = 0 then
rndCodigos(k) = x
tb = tb + 1
exit for
end if
next
loop
%>
<%
end if
rsEmergencias.Close
Set rsEmergencias = Nothing
%>
|
<%= rsControles("Frase" & xIdioma) %>
<%= rsControles("Telefones") %>
"><%= rsControles("Email01") %>
<%= rsControles("Endereco" & xIdioma) %>
|
<% Elseif xIdioma = "i" then %>
<% Else %>
<% end if %>