<%@ 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 xmlconteudo dim XSLFile 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 sNew = "" sNew = sNew & "

" sNew = sNew & getlink("Épocas", "/sport/epocas.asp") sNew = sNew & " > " & nome sNew = sNew & "

Campeonatos

" sNew = sNew & "" sNew = sNew & "" sNew = sNew & "" sNew = sNew & "" sNew = sNew & "
Campeonatos
" call getCompSelect(ArComp, numCamp, IdEpoca_Content) ' campeonatos do content sNew = sNew & showCampeonatosContent(ArComp) ' campeonatos do jornal sNew = sNew & showcampeonatosJornal(idEpoca) ' dados Jogos 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 %>