<% 'Include Common Files @1-D6EDE132 %> <% 'End Include Common Files 'Initialize Page @1-29046DB3 ' Variables Dim PathToRoot, ScriptPath Dim FileName Dim Redirect Dim Tpl, HTMLTemplate Dim TemplateFileName Dim ComponentName Dim PathToCurrentPage ' Events Dim CCSEvents Dim CCSEventResult ' Page controls Dim top Dim cat_list Dim down Redirect = "" TemplateFileName = "profile.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./" FileName = "profile.asp" PathToRoot = "./" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) 'End Initialize Page 'Initialize Objects @1-DD18C1A8 ' Controls Set top = New clstop top.BindEvents top.Initialize Set cat_list = New clscat_list cat_list.BindEvents cat_list.Initialize Set down = New clsdown down.BindEvents down.Initialize CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects 'Execute Components @1-5660299E top.Operations cat_list.Operations down.Operations 'End Execute Components '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-0155E1BE CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing) Set HTMLTemplate = new clsTemplate Set HTMLTemplate.Cache = TemplatesRepository HTMLTemplate.LoadTemplate ScriptPath & TemplateFileName Set Tpl = HTMLTemplate.Block("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing) 'End Initialize HTML Template 'Show Page @1-363ED0BF top.Show Tpl, "top" cat_list.Show Tpl, "cat_list" down.Show Tpl, "down" HTMLTemplate.PParse "main", False 'End Show Page 'Unload Page @1-CB210C62 UnloadPage Set Tpl = Nothing Set HTMLTemplate = Nothing 'End Unload Page 'UnloadPage Sub @1-77144A99 Sub UnloadPage() CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing) Set top = Nothing Set cat_list = Nothing Set down = Nothing End Sub 'End UnloadPage Sub 'Include Page Implementation @2-7B7A8785 %> <% 'End Include Page Implementation 'Include Page Implementation @3-E3A3D732 %> <% 'End Include Page Implementation 'Include Page Implementation @4-3CF1049B %> <% 'End Include Page Implementation %>