<%@ Language=VBScript%> <%option explicit%> <% dim sNew dim sModel dim sjavascript dim idforum idforum = request("idforum") 'Modelo exterior sModel = getModel(c_RootPath & "\modelos\modelo_pesqforum.htm") sjavascript = " " & vbcrlf sModel= replace (sModel,c_FichJavaScript_Marca, sjavascript) 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Pesquisa ", getEdicaoActual(), "../index.asp", "../", c_RootPath & "\pub\", 0) sModel= replace (sModel,c_Noticias_Marca, getlink("Voltar ao Fórum", "forum_messages.asp?idforum=" & idforum)) ' PESQUISA ' anos call TotalYear(sModel) Response.Write sModel %>