<%@ Language=VBScript %> <%option explicit%> <% 'Main dim idEdicao dim sModel 'Modelo sModel = getModel(c_RootPath & "\modelos\modelo_assinaturas.htm") 'Edicão idEdicao = getEdicaoActual() 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Assinaturas ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) sModel = replace(sModel, c_url, "http://" & Request.ServerVariables("SERVER_NAME") & server.HTMLEncode("/jornal/assinaturas.asp" & "&title=Assinaturas")) 'Validacoes em javascript sModel = replace (sModel, c_FichJavaScript_Marca, "") Response.Write sModel %>