<%@ Language=VBScript %> <%option explicit%> <% 'Main dim sModel dim idEdicao 'Modelo sModel = getModel( c_RootPath & "\modelos\modelo_contactos.htm") 'Edicão idEdicao = getEdicaoActual() 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Contactos ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>