<% Dim HtmlContent,strHtml Newasp.LoadTemplates 9999, 7, 0 HtmlContent = Newasp.HtmlContent HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir) HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0) HtmlContent = Replace(HtmlContent,"{$PageTitle}",Newasp.HtmlSetting(1)) HtmlContent = ReadClassMenu(HtmlContent) HtmlContent = ReadClassMenubar(HtmlContent) strHtml = Newasp.Readfile("about.ini") strHtml = Replace(strHtml,"{$SiteName}", Newasp.SiteName) strHtml = Replace(strHtml,"{$SiteUrl}", Newasp.SiteUrl) HtmlContent = Replace(HtmlContent,"{$TempContent}", strHtml) Response.Write HtmlContent CloseConn %>