<%@ CodePage=28591 %> <% 'Include Common Files @1-3F5A437A %> <% 'End Include Common Files 'Initialize Page @1-00FB15CD ' Variables Dim PathToRoot, ScriptPath, TemplateFilePath Dim FileName Dim Redirect Dim Tpl, HTMLTemplate Dim TemplateFileName Dim ComponentName Dim PathToCurrentPage Dim Attributes ' Events Dim CCSEvents Dim CCSEventResult ' Page controls Dim lblPageTitle Dim lblMetaTags Dim lblShortcutIcon Dim lblStylesheets Dim lblLogo2 Dim lblTitleBar Dim lblMenuSub Dim lblAdvertisements1 Dim lblContentRight Dim lblNews1Shortlist Dim lblSpecials1Shortlist Dim lblBanner1 Dim lblContentMain Dim lblMenuMain Dim lblLogo1 Dim lblSound Dim lblFooter1 Dim lblLanguage Dim lblMenuGlobal Dim lblGoogleAnalytics Dim ChildControls Response.ContentType = CCSContentType Redirect = "" TemplateFileName = "general.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./html/" FileName = "general.asp" PathToRoot = "../" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) TemplateFilePath = ScriptPath 'End Initialize Page 'Initialize Objects @1-6F6973BE Set Attributes = New clsAttributes ' Controls Set lblPageTitle = CCCreateControl(ccsLabel, "lblPageTitle", Empty, ccsText, Empty, CCGetRequestParam("lblPageTitle", ccsGet)) lblPageTitle.HTML = True Set lblMetaTags = CCCreateControl(ccsLabel, "lblMetaTags", Empty, ccsText, Empty, CCGetRequestParam("lblMetaTags", ccsGet)) lblMetaTags.HTML = True Set lblShortcutIcon = CCCreateControl(ccsLabel, "lblShortcutIcon", Empty, ccsText, Empty, CCGetRequestParam("lblShortcutIcon", ccsGet)) lblShortcutIcon.HTML = True Set lblStylesheets = CCCreateControl(ccsLabel, "lblStylesheets", Empty, ccsText, Empty, CCGetRequestParam("lblStylesheets", ccsGet)) lblStylesheets.HTML = True Set lblLogo2 = CCCreateControl(ccsLabel, "lblLogo2", Empty, ccsText, Empty, CCGetRequestParam("lblLogo2", ccsGet)) lblLogo2.HTML = True Set lblTitleBar = CCCreateControl(ccsLabel, "lblTitleBar", Empty, ccsText, Empty, CCGetRequestParam("lblTitleBar", ccsGet)) lblTitleBar.HTML = True Set lblMenuSub = CCCreateControl(ccsLabel, "lblMenuSub", Empty, ccsText, Empty, CCGetRequestParam("lblMenuSub", ccsGet)) lblMenuSub.HTML = True Set lblAdvertisements1 = CCCreateControl(ccsLabel, "lblAdvertisements1", Empty, ccsText, Empty, CCGetRequestParam("lblAdvertisements1", ccsGet)) lblAdvertisements1.HTML = True Set lblContentRight = CCCreateControl(ccsLabel, "lblContentRight", Empty, ccsText, Empty, CCGetRequestParam("lblContentRight", ccsGet)) lblContentRight.HTML = True Set lblNews1Shortlist = CCCreateControl(ccsLabel, "lblNews1Shortlist", Empty, ccsText, Empty, CCGetRequestParam("lblNews1Shortlist", ccsGet)) lblNews1Shortlist.HTML = True Set lblSpecials1Shortlist = CCCreateControl(ccsLabel, "lblSpecials1Shortlist", Empty, ccsText, Empty, CCGetRequestParam("lblSpecials1Shortlist", ccsGet)) lblSpecials1Shortlist.HTML = True Set lblBanner1 = CCCreateControl(ccsLabel, "lblBanner1", Empty, ccsText, Empty, CCGetRequestParam("lblBanner1", ccsGet)) lblBanner1.HTML = True Set lblContentMain = CCCreateControl(ccsLabel, "lblContentMain", Empty, ccsText, Empty, CCGetRequestParam("lblContentMain", ccsGet)) lblContentMain.HTML = True Set lblMenuMain = CCCreateControl(ccsLabel, "lblMenuMain", Empty, ccsText, Empty, CCGetRequestParam("lblMenuMain", ccsGet)) lblMenuMain.HTML = True Set lblLogo1 = CCCreateControl(ccsLabel, "lblLogo1", Empty, ccsText, Empty, CCGetRequestParam("lblLogo1", ccsGet)) lblLogo1.HTML = True Set lblSound = CCCreateControl(ccsLabel, "lblSound", Empty, ccsText, Empty, CCGetRequestParam("lblSound", ccsGet)) lblSound.HTML = True Set lblFooter1 = CCCreateControl(ccsLabel, "lblFooter1", Empty, ccsText, Empty, CCGetRequestParam("lblFooter1", ccsGet)) lblFooter1.HTML = True Set lblLanguage = CCCreateControl(ccsLabel, "lblLanguage", Empty, ccsText, Empty, CCGetRequestParam("lblLanguage", ccsGet)) lblLanguage.HTML = True Set lblMenuGlobal = CCCreateControl(ccsLabel, "lblMenuGlobal", Empty, ccsText, Empty, CCGetRequestParam("lblMenuGlobal", ccsGet)) lblMenuGlobal.HTML = True Set lblGoogleAnalytics = CCCreateControl(ccsLabel, "lblGoogleAnalytics", Empty, ccsText, Empty, CCGetRequestParam("lblGoogleAnalytics", ccsGet)) lblGoogleAnalytics.HTML = True ' Events %> <% BindEvents CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects 'Go to destination page @1-6D35F4FD If NOT ( Redirect = "" ) Then UnloadPage Response.Redirect Redirect End If 'End Go to destination page 'Initialize HTML Template @1-2DA4DCFB CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing) Set HTMLTemplate = new clsTemplate HTMLTemplate.Encoding = "iso-8859-1" Set HTMLTemplate.Cache = TemplatesRepository HTMLTemplate.LoadTemplate TemplateFilePath & TemplateFileName HTMLTemplate.SetVar "@CCS_PathToRoot", PathToRoot Set Tpl = HTMLTemplate.Block("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing) 'End Initialize HTML Template 'Show Page @1-C057B6E5 Attributes.Show HTMLTemplate, "page:" Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _ Array(lblPageTitle, lblMetaTags, lblShortcutIcon, lblStylesheets, lblLogo2, lblTitleBar, lblMenuSub, lblAdvertisements1, lblContentRight, lblNews1Shortlist, lblSpecials1Shortlist, lblBanner1, lblContentMain, lblMenuMain, lblLogo1, lblSound, lblFooter1, lblLanguage, lblMenuGlobal, lblGoogleAnalytics)) ChildControls.Show Dim MainHTML HTMLTemplate.Parse "main", False MainHTML = HTMLTemplate.GetHTML("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeOutput", Nothing) If CCSEventResult Then Response.Write MainHTML 'End Show Page 'Unload Page @1-CB210C62 UnloadPage Set Tpl = Nothing Set HTMLTemplate = Nothing 'End Unload Page 'UnloadPage Sub @1-9ACAEC8C Sub UnloadPage() CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing) Set CCSEvents = Nothing Set Attributes = Nothing End Sub 'End UnloadPage Sub %>