<%@ Language=VBScript %>
<%option explicit%>
<%
dim sModel
dim sNew
dim idEdicao
dim IdEpoca
dim IdEpoca_Content
dim xmlconteudo
dim XSLFile
dim ArComp
dim numCamp
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
sNew = ""
sNew = sNew & "Épocas
"
sNew = sNew & ""
sNew = sNew & ""
sNew = sNew & "| Épocas | "
sNew = sNew & "
"
sNew = sNew & "
"
sNew = sNew & showepocas()
' 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
%>