<%@ Language=VBScript %> <%option explicit 'message.asp 'display da mensagem em xml %> <% function JornalMenu() dim sQry dim titulo dim sfunc dim idMsg dim rst dim xml dim xsl idMsg = Request.QueryString("idMsg") set rst = getMessageById(idMsg) if not rst.eof then titulo = rst("Subject") end if set rst = nothing sQry = Request.ServerVariables("QUERY_STRING") xml = "" xml = xml & "" xml = xml & "" xml = xml & server.HTMLEncode(sQry) xml = xml & "" xml = xml & "" xml = xml & server.HTMLEncode(titulo) xml = xml & "" xml = xml & "" xml = xml & "forum" xml = xml & "" xml = xml & "" xml = xml & server.HTMLEncode("/forum/message.asp") xml = xml & "" xml = xml & "" if cCommon.Assinante = "true" then xsl = c_rootpath & "/styles/assinfavorito/forum.xsl" else xsl = c_rootpath & "/styles/favorito/forum.xsl" end if sfunc = produceHTML(xml, xsl) JornalMenu = sfunc end function function DisplayMsg(byval lIdMsg,byref mTitlepage) Dim obj dim xml dim xslFile dim objxml if lIdMsg <> "" then set obj = server.CreateObject("forum_dal.message") xml = obj.GetFullTopicByIDXML(CONNNECT, lIdMsg) Set obj = Nothing Set objxml = server.CreateObject("MSXML2.DOMDocument") objxml.loadXML(xml) if instr(1, xml, "") = 0 then mTitlepage = objxml.documentElement.selectSingleNode("//subject").text end if Set objxml = nothing xslFile = c_rootpath & "\styles\forum\message.xsl" DisplayMsg = ShowEmotIcons(produceHTML(xml, xslFile)) end if end function dim IdEdicao dim sModel dim Titlepage dim idmsg ' modelo sModel = getModel(c_RootPath & "\modelos\modelo_int.htm") if cCommon.Favoritos = "true" then sModel = replace (sModel, c_colunadireita, JornalMenu()) end if 'Edicão idEdicao = getEdicaoActual() idmsg = Request.QueryString("idMsg") if idmsg = "" then idmsg = -1 end if ' forum sModel = replace(sModel,c_Noticias_Marca, DisplayMsg(idmsg,Titlepage)) 'response.write "sss" & Titlepage 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Forum - " & Titlepage, IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>