<%@ Language=VBScript %> <%option explicit%> <% function DisplayEditMsg(sModel) dim lIdResp dim lIdForum dim Subject dim rst dim rstChild dim msgAlert 'Forum dim sName, sDescription dim dteUpdateDate, bModerated, bLocked dim lNumMsgsViewed, lNumLevelsAlowed dim i dim aCode dim aImg 'Buffer dim Buffer Buffer = "" 'Parametros lIdResp = Request.QueryString("idResp") lIdForum = Request.QueryString("idForum") Subject = "" 'Show Forum call GetForumByID(lIdForum, sName, sDescription, _ dteUpdateDate, bModerated, bLocked, _ lNumMsgsViewed, lNumLevelsAlowed) Buffer = "Fórum: " & getlink(sName,"forum_messages.asp?idForum=" & lIdForum) & "" & vbcrlf if bModerated = true then msgAlert = "

O Fórum é moderado pelo que as mensagem inseridas não serão automaticamente visualizadas.

" end if Buffer = Buffer & msgAlert if lIdResp="" then lIdResp = 0 else buffer = buffer & "

" & vbcrlf 'Show Parent Message set rst = getMessageById(lIdResp) buffer = buffer & "

" & vbcrlf buffer = buffer & "Tema:" & vbcrlf buffer = buffer & "

" & vbcrlf buffer = buffer & showMessageByID(lIdResp, rst, "impar") if not rst.eof then Subject = "Re: " & safeItemTextBox(rst("Subject")) end if set rst = nothing end if 'sModel = replace(sModel,c_Noticias_Marca, buffer) sModel = replace(sModel,c_Noticias_Marca, buffer) sModel = replace(sModel,c_valorhidden, lIdResp) sModel = replace(sModel,c_Texto, Subject) ' register if c_only_reg_forum = "0" then ' utiliza registo e outros sModel = replace(sModel,c_nickname_marca, NickName) sModel = replace(sModel,c_email_marca, Email) else ' utiliza apenas registo sModel = replace(sModel,c_nickname_marca & """ size=""30"">", c_nickname_marca & """ size=""30"">") sModel = replace(sModel,c_nickname_marca & """", NickName & """"" disabled") sModel = replace(sModel,c_email_marca, Email) end if Buffer="" if lIdResp<>0 then 'Show child messages set rstChild = Expand(lIdForum,lIdResp) buffer = buffer & displayChilds(lIdForum, lIdResp, rstChild) set rstChild = nothing end if sModel = replace(sModel,c_comentario, buffer) end function dim IdEdicao dim sModel dim sJsript dim lIdForum dim register lIdForum = Request.QueryString("idForum") if lidForum = "" then lidForum = 1 end if call GetForumRegister(lidForum, register) c_only_reg_forum = register call checkfunc("forum") sjsript = "" & vbcrlf ' modelo sModel = getModel(c_RootPath & "\modelos\modelo_forummsg.htm") sModel = replace (sModel, "css/stylesardina", "../css/stylesardina") ' validacoes sModel = replace (sModel, c_FichJavaScript_Marca, "") sModel = replace (sModel, "