<%@ Language=VBScript %> <%option explicit%> <% dim idnew dim currentId dim idEdicao dim sModel dim rst 'Edicao dim IdEdicaoActual idEdicao = Request.QueryString("idEdicao") idEdicaoActual = clng(getEdicaoActual()) if IdEdicao = "" then IdEdicao = idEdicaoActual else IdEdicao = clng(IdEdicao) end if 'Parametros idnew = Request.QueryString("id") currentId = Request.ServerVariables("QUERY_STRING") 'Modelo sModel = getModel(c_RootPath & "\modelos\modelo_sendtofriend.htm") sModel = replace(sModel, c_url, "http://" & Request.ServerVariables("SERVER_NAME") & server.HTMLEncode("/index.asp?" & currentId & "&title=Enviar Notícia")) sModel = replace(sModel, "sendtofriend_action.asp", "sendtofriend_action.asp?id=" & idnew) 'Validacoes em javascript sModel = replace (sModel, c_FichJavaScript_Marca, "") 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Enviar notícia ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>