<%@Language=VBScript%> <%Option Explicit%> <% Dim strSite, strTemplateSite, strPagina, strTemplatePagina strPagina = Request("INFO") If strPagina = "" Then Response.Redirect CarregarConfig("CFG_HOME") End If If PegarExtensao(strPagina) = "" Then strPagina = strPagina & ".html" End If 'carga do template strTemplateSite = CarregarTemplate("site.tpl") strTemplateSite = ProcessarSubTemplates(strTemplateSite) strTemplatePagina = CarregarTemplate(strPagina) If strTemplatePagina = "" Then Response.Redirect CarregarConfig("CFG_HOME") End If %> <%=CarregarConfig("CFG_NOME_SITE")%> <% 'substitui os valores strTemplateSite = Replace(strTemplateSite, "#CONTEUDO#", strTemplatePagina) Response.Write strTemplateSite objConn.Close Set objConn = Nothing %>