<%@ Language=VBScript %>
<%option explicit%>
<%
dim sModel
dim sNew
dim idEdicao
dim IdEpoca
dim IdEpoca_Content
dim Actual_IdEpoca
dim Actual_IdEpoca_Content
dim tipo
dim nome
dim ArComp
dim numCamp
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
Actual_IdEpoca_Content = GetIdEpocaActual_Content()
Actual_IdEpoca = GetIdEpocaActual()
idepoca_content = Request.QueryString("idepoca_content")
idepoca = Request.QueryString("idepoca")
nome = Request.QueryString("nomeepoca")
if len(idepoca_content) = 0 and len(idepoca) = 0 then
idepoca_content = Actual_IdEpoca_Content
idepoca = Actual_IdEpoca
elseif len(idepoca_content) = 0 and idepoca <> "" then
if clng(idepoca) = clng(Actual_IdEpoca) then
idepoca_content = Actual_IdEpoca_Content
else
idepoca_content = GetEpocasByDesc_content(nome)
end if
elseif idepoca_content <> "" and len(idepoca) = 0 then
if clng(idepoca_content) = clng(Actual_idepoca_content) then
idepoca = Actual_IdEpoca
else
idepoca = GetEpocasByDesc(nome)
end if
end if
if nome = "" then
nome = GetNomeEpoca_content(idepoca_content)
end if
dim xmlCampeonatos_Content
dim xmlequipasdestaque_Content
dim equipasdestaque_Content
dim XMLCampeonatos
dim xmlequipasdestaque
dim equipasdestaque
' campeonatos do content
call getCompSelect(ArComp, numCamp, IdEpoca_Content)
xmlCampeonatos_Content = GetXMLCampeonatos_Content(ArComp)
equipasdestaque_Content =ShowEquipaDestContent(xmlCampeonatos_Content)
' campeonatos do jornal
XMLCampeonatos = GetXMLCampeonatos(idEpoca)
equipasdestaque = ShowEquipaDest(xmlCampeonatos)
sNew = ""
sNew = sNew & ""
sNew = sNew & "Epoca Actual"
sNew = sNew & " > " & nome
sNew = sNew & "
"
sNew = sNew & getlink("Épocas em Arquivo", "epocas.asp") & " > Campeonatos
"
sNew = sNew & ""
sNew = sNew & "| " & equipasdestaque_Content & equipasdestaque & " |
"
sNew = sNew & "
"
'inserir
sModel = replace(sModel, c_Noticias_Marca, sNew)
'Edicão
idEdicao = getEdicaoActual()
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Campeonatos ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0)
Response.Write sModel
%>