<%@ Language=VBScript %> <%option explicit%> <% dim sModel dim idEdicao dim sNew dim idEpoca dim IdCompeticao dim NomeCamp dim Nomeepoca dim XSLFile dim xmlconteudo dim arrEquipasDestaque dim sBuff sModel = getModel(c_RootPath & "\modelos\modelo_int.htm") snew = "" idEpoca = Request.QueryString("idEpoca") IdCompeticao = Request.QueryString("IdCompeticao") NomeCamp = Request.QueryString("NomeCamp") Nomeepoca = Request.QueryString("Nomeepoca") sNew = sNew & "

" sNew = sNew & "Época Actual" sNew = sNew & " > " & Nomeepoca sNew = sNew & "

" sNew = sNew & getlink("Campeonatos", "campeonatos.asp?idepoca_content=" & idepoca & "&nomeepoca=" & nomeepoca) sNew = sNew & " > " & NomeCamp sNew = sNew & " > " & ComboOpcoesSport("opcoesSport",1) & "

" sNew = sNew & showclassificacaoContent(IdCompeticao) ' dados Jogos sModel = replace(sModel, c_Noticias_Marca, sNew) 'Edicão idEdicao = getEdicaoActual() 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Campeonatos > " & NomeCamp & " > Classificação ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>