<%
'Include Common Files @1-D6EDE132
%>
<!-- #INCLUDE FILE=".\Common.asp"-->
<!-- #INCLUDE FILE=".\Cache.asp" -->
<!-- #INCLUDE FILE=".\Template.asp" -->
<!-- #INCLUDE FILE=".\Sorter.asp" -->
<!-- #INCLUDE FILE=".\Navigator.asp" -->
<%
'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
%>
<!-- #INCLUDE FILE="top.asp" -->
<%
'End Include Page Implementation

'Include Page Implementation @3-E3A3D732
%>
<!-- #INCLUDE FILE="cat_list.asp" -->
<%
'End Include Page Implementation

'Include Page Implementation @4-3CF1049B
%>
<!-- #INCLUDE FILE="down.asp" -->
<%
'End Include Page Implementation


%>