<%
CALL CreateConnection()
CALL CreateRecordSet(link_categoria, "SELECT Categoria.rel_site, Categoria.id_categoria, Categoria.nome_categoria, Link.url, Link.destaque, Link.texto FROM Categoria LEFT OUTER JOIN Link ON Categoria.rel_site = Link.id_link ORDER BY Categoria.ordem_exibicao")
if not link_categoria.eof then
do until link_categoria.eof
response.write ".:"& link_categoria("nome_categoria") & "
"
link_categoria.movenext
loop
end if
response.write ".:Colunistas
"
%>
|
|
<%
rel_categoria = request("rel_categoria")
rel_sessao = request("rel_sessao")
Select case rel_sessao
case 3
sessao = "Pilotos"
query = "SELECT 0 as dif, Piloto.nome_piloto AS NOME, Link.url AS LINK, Link.texto FROM Piloto INNER JOIN Link ON Piloto.rel_site = Link.id_link INNER JOIN Equipe ON Piloto.rel_equipe = Equipe.id_equipe WHERE (Equipe.rel_categoria = "&rel_categoria&")"
case 2
sessao = "Equipes"
query = "SELECT 0 as dif, Equipe.nome_equipe as NOME, Link.url as LINK, Link.texto FROM Equipe INNER JOIN Link ON Equipe.rel_site = Link.id_link WHERE (Equipe.rel_categoria = "&rel_categoria&") ORDER BY Link.destaque DESC, Equipe.nome_equipe"
case 1
sessao = "GPs"
query = "SELECT 0 as dif, GP.nome_GP as NOME, Link.url as LINK, Link.texto FROM Link INNER JOIN GP ON Link.id_link = GP.rel_site WHERE (GP.rel_categoria = "&rel_categoria&") ORDER BY Link.destaque DESC, GP.nome_GP"
case 0
query = "SELECT 3 AS dif, Piloto.nome_piloto AS NOME, Link.url AS LINK, Link.texto, Link.destaque AS DESTAQUE " &_
"FROM Piloto INNER JOIN "&_
"Link ON Piloto.rel_site = Link.id_link INNER JOIN "&_
"Equipe ON Piloto.rel_equipe = Equipe.id_equipe "&_
"WHERE (Equipe.rel_categoria = "&rel_categoria&") "&_
"UNION "&_
"SELECT 2 AS dif, Equipe.nome_equipe AS NOME, Link.url AS LINK, Link.texto, Link.destaque AS DESTAQUE "&_
"FROM Equipe INNER JOIN "&_
"Link ON Equipe.rel_site = Link.id_link "&_
"WHERE (Equipe.rel_categoria = "&rel_categoria&") "&_
"UNION "&_
"SELECT 1 AS dif, GP.nome_GP AS NOME, Link.url AS LINK, Link.texto, Link.destaque AS DESTAQUE "&_
"FROM Link INNER JOIN "&_
"GP ON Link.id_link = GP.rel_site "&_
"WHERE (GP.rel_categoria = "&rel_categoria&") "&_
"ORDER BY dif, destaque DESC, NOME"
End select
Select case rel_categoria
case 27
titulo = "Categoria: Fórmula 1: " & sessao
case 28
titulo = "Categoria: Fórmula Mundial: " & sessao
case 29
titulo = "categoria: IRL: " & sessao
case 30
titulo = "Categoria: fórmula 3000: " & sessao
case 31
titulo = "Categoria: fórmula 3: " & sessao
case 32
titulo = "Categoria: Stock Car: " & sessao
case 33
titulo = "Categoria: SpeedShow - Fórmula Renault: " & sessao
case 34
titulo = "Categoria: SpeedShow - Copa Renault Clio: " & sessao
case 35
titulo = "Categoria: Nascar: " & sessao
case 36
titulo = "Categoria: Moto GP: " & sessao
case 37
titulo = "Categoria: Rally: " & sessao
case 38
titulo = "Categoria: Fórmula Truck: " & sessao
case 39
titulo = "Categoria: Categorias especiais: " & sessao
case 41
titulo = "Categoria: SpeedShow - Super Renault Mégane: " & sessao
End Select
CALL CreateRecordSet(links_sessao, query)
if not links_sessao.eof then
mostrou = 0
dif = 0
do until links_sessao.eof
if int(links_sessao("dif")) = 0 and mostrou = 0 then
response.write "" &titulo & "
"
mostrou = 1
elseif int(links_sessao("dif")) > 0 then
if int(dif) <> int(links_sessao("dif")) then
sessao = ""
Select case int(links_sessao("dif"))
case 3
sessao = "Pilotos"
case 2
sessao = "Equipes"
case 1
sessao = "GPs"
End Select
response.write "
" &titulo &""& sessao & "
"
dif = int(links_sessao("dif"))
end if
end if
%>
" target="_blank" style="color: Black;"><%= links_sessao("nome") %>
<%if len(links_sessao("texto")) > 0 then
response.write links_sessao("texto") %>
<%end if %>
<%= links_sessao("link") %>
<%
links_sessao.movenext
loop
else
response.write "Nenhum Link cadastrado até o momento
"
end if
CALL CloseRecordSet(links_sessao)
%>
|
|
|
