<%@ Language=VBScript%> <%option explicit%> <% dim idnew dim idEdicao dim currentId dim sModel '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_coment.htm") sModel = replace(sModel, c_url, "http://" & Request.ServerVariables("SERVER_NAME") & server.HTMLEncode("/index.asp?" & currentId & "&title=Comentários ao Artigo")) 'sModel = replace(sModel, c_Edicao_Marca, ShowDadosEdicao(idEdicao)) 'Validacoes em javascript sModel = replace (sModel, c_FichJavaScript_Marca, "") 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Comentários ao artigo ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>