<%@ Language=VBScript%> <%Option Explicit%> <% response.buffer=true%> <% sub showpaginanoticia(idNew, IdEdicao, idSeccao, TitPagina, LinkSeccao, sModel) dim snew dim sOutraNoticias dim Key dim sNotRel 'Modelo sModel = getModelCache(c_RootPath & "\modelos\modelo_not.htm") 'Arquivo if IdEdicao <> idEdicaoActual then sModel = replace(sModel, c_Noticias_Marca, "

Arquivo: " _ & ShowDadosEdicao(IDEdicao) & "

" & c_Noticias_Marca) end if 'Noticia e Autor sNew = ListNoticiasXML(IdEdicao, idnew, TitPagina, LinkSeccao) sModel = replace(sModel, c_Noticias_Marca, sNew) if cCommon.ContadorNoticia = "true" then call AddContadorNot(idNew, 1) end if if cCommon.OutraNoticiaSec = "true" then 'outras noticias de seccao sOutraNoticias = ListOutrasNoticias(IdEdicao, IdSeccao, idNew) sModel = replace(sModel, c_OutrasNot_Marca, sOutraNoticias) end if if cCommon.NotRel = "true" then 'noticias Relacionadas 'sNotRel = CacheNoticiasRelacXML(idnew, IdEdicao, IdSeccao) 'sModel = replace(sModel, c_NoticiaRelac_Marca, sNotRel) 'sModel = replace(sModel, c_NoticiaRelac_Marca, showNotCaixa(idnew)) end if if cCommon.Notfunc = "true" then ' funcionalidades sModel = replace(sModel, c_FuncMenu_Marca, funcmenu(idNew)) end if if cCommon.Favoritos = "true" then sModel = replace(sModel, c_Favoritos_Marca, JornalMenu(idNew, idedicao ,TitPagina)) end if end sub function showNotCaixa(byval idnot) dim objcaixa dim xml dim xslFile xslFile = c_rootpath & "\styles\caixa\caixanoticias.xsl" set objcaixa= server.CreateObject("caixa.clscaixa") xml= objcaixa.getNotCaixaXMLStream (connectionstring,idnot) set objcaixa=nothing showNotCaixa = merge (xml,xslFile,array("aa"),array("ss")) end function sub ShowFarmacias(sModel) dim snew sNew = CacheVisualizaEscolha(0) sModel = replace(sModel, c_Farmacia, sNew) end sub sub ShowJornalSingular(sModel) dim sBuff sBuff = GetPeopleCache() sModel = replace(sModel, c_ListAutores_Marca, sBuff) end sub dim idPub dim idnew dim idSeccao dim sAction dim idEdicao dim idzona dim numNoticias dim sSeccoes, sDestaquesSeccao, sDestaques, sNew dim sModel dim Seccao dim dadosEdicao dim InqAction dim questionID dim rsQuestions dim rschoice dim DestaqueArea dim key 'DisplayCacheKeys idnew = Request.QueryString("id") idSeccao = Request.QueryString("idSeccao") sAction = Request.QueryString("Action") 'Edicao dim IdEdicaoActual idEdicao = Request.QueryString("idEdicao") idEdicaoActual = clng(CacheGetEdicaoActual()) if IdEdicao = "" or not(IsNumeric(IdEdicao)) then IdEdicao = idEdicaoActual else IdEdicao = clng(IdEdicao) end if select case sAction case "seccao" dim PosTit dim Titulo if idSeccao <> "" and IsNumeric(idSeccao) then ' leitura dos destaques de seccao sDestaquesSeccao = ListSeccao(IdEdicao, idSeccao) if not isnumeric(sDestaquesSeccao) then ' multiplas noticias if sDestaquesSeccao <> "" then TitPagina = left(sDestaquesSeccao, instr(sDestaquesSeccao,"

")-1) TitPagina = right(TitPagina, (len(TitPagina) - len("

"))) end if 'Modelo sModel = getModelCache(c_RootPath & "\modelos\modelo_sec.htm") ' destaques de seccao if IdEdicao <> idEdicaoActual then 'Arquivo sModel = replace(sModel, c_Noticias_Marca, "

Arquivo: " _ & ShowDadosEdicao(IDEdicao) & "

" & c_Noticias_Marca) end if sModel = replace(sModel, c_Noticias_Marca, sDestaquesSeccao) else ' só existe uma noticia idNew = clng(sDestaquesSeccao) call showpaginanoticia(idNew, IdEdicao, idSeccao, TitPagina, 1, sModel) end if else sModel = getModelCache(c_RootPath & "\modelos\modelo_sec.htm") sModel = replace(sModel, c_Noticias_Marca, "") end if case "noticia" if idSeccao <> "" and IsNumeric(idSeccao) and idNew <> "" and IsNumeric(idNew) then call showpaginanoticia(idNew, IdEdicao, idSeccao, TitPagina, 0, sModel) else sModel = getModelCache(c_RootPath & "\modelos\modelo_not.htm") sModel = replace(sModel, c_Noticias_Marca, "") end if case "all" TitPagina = c_SeccaoAll sModel = getModelCache(c_RootPath & "\modelos\modelo_sec.htm") if IdEdicao <> idEdicaoActual then 'Arquivo sModel = replace(sModel, c_Noticias_Marca, "

Arquivo: " _ & ShowDadosEdicao(IdEdicao) & "

" & c_Noticias_Marca) end if sModel = replace(sModel, c_Noticias_Marca, ListTodasNoticias(IdEdicao)) case "" 'DisplayCacheKeys if IdEdicao = idEdicaoActual then 'Edicao Actual 'Modelo sModel = getModelCache(c_RootPath & "\modelos\modelo.htm") if cCommon.UltimaHora = "true" then sModel = replace(sModel, _ c_UH_Marca, _ showlastUHXML("breakingnews/news.asp",1)) end if if cCommon.forum = "true" then sModel = replace(sModel, _ c_Forum_Marca, _ CacheForumLastMessagesXML(1)) '' Response.write "forum(" & CacheForumLastMessagesXML(1) & "]" end if if cCommon.agenda = "true" then sModel = replace(sModel, _ c_Agenda_Marca, _ showAgendaHomepage()) end if if cCommon.inquerito = "true" then 'inquerito sModel = replace(sModel, _ c_Inquerito_Marca, _ CacheShowQuestionXMLPublicate("survey/resposta_inquerito_action.asp")) end if if cCommon.capa = "true" then 'img da capa sModel = replace(sModel, _ c_Capa_Marca, _ CacheShowCapaJornal(IdEdicao,1,c_RootPath & "\styles\capapeq.xsl" )) end if if cCommon.jornalsingular = "true" then ' jornal no singular call ShowJornalSingular(sModel) end if if cCommon.tempo = "true" then 'weather sModel = replace(sModel, c_Marca_weather, showWeatherHP() ) end if 'chat 'dim aa 'aa= "javascript:OpenWindow('/chat/index.asp','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,width=760,height=440')" 'sModel = replace(sModel, c_Marca_weather, getlink("Chat",aa)) if cCommon.classificados = "true" then 'Directorio comercial sModel = replace(sModel, _ c_classifiedsp_marca , _ classifiedspSCategoriasShow(c_rootpath & "\styles\classifiedsp\categoriashp.xsl")) end if if cCommon.farmacias = "true" then ' farmácias call ShowFarmacias(sModel) end if ' dossieres mirante ' ---------------------------- 'sModel = replace(sModel, _ ' "" , _ ' ShowGrupoAllHPXML()) ' ---------------------------- else 'Modelo sModel = getModelCache(c_RootPath & "\modelos\modelo_homearquivo.htm") sModel = replace(sModel, _ c_Destaque_Marca & "1 -->", _ "

Arquivo: " _ & ShowDadosEdicao(idEdicao) & "

" & c_Destaque_Marca & "1 -->" ) end if ' destaques for idzona = 1 to c_NumZonas DestaqueArea = CacheShowDestaquesXML(IdEdicao, IdZona) sModel = replace(sModel, c_Destaque_Marca & idzona & " -->", DestaqueArea,1,1) next end select 'dados existentes em todas as paginas call ShowDadosPaginaCache(sModel, TitPagina, IdEdicao, "index.asp", "../", c_RootPath & "\pub\", 1) 'utilidades sModel = replace (sModel, c_FichJavaScript_Marca, "") Response.Write sModel 'Response.Write "
cCommon É objecto:" & isobject(cCommon) Set cCommon = Nothing ' ' %>