<%
Class clsHeader 'Header Class @1-56552C31

'Page Variables @1-A54C3349
    Dim Redirect
    Dim Tpl, HTMLTemplate
    Dim TemplateFileName
    Dim ComponentName
    Dim PathToCurrentPage

    ' Events
    Dim CCSEvents
    Dim CCSEventResult

    ' Page controls
    Dim home_link
    Dim newthread_link
    Public Visible
    Public Page
    Private TemplatePathValue
'End Page Variables

'Page Class_Initialize Event @1-E0B0B66F
    Private Sub Class_Initialize()
        Visible = True
        Set Page = Me
        Set ParentPage = Me
        TemplatePathValue = ""
        Redirect = ""
        TemplateFileName = "Header.html"
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        PathToCurrentPage = "./"
        If Visible Then

            ' Create Components
            Set home_link = CCCreateControl(ccsLink, "home_link", "home_link", ccsText, Empty, CCGetRequestParam("home_link", ccsGet))
            Set newthread_link = CCCreateControl(ccsLink, "newthread_link", "newthread_link", ccsText, Empty, CCGetRequestParam("newthread_link", ccsGet))
            home_link.Value = "Home"
            newthread_link.Value = "New Thread"
        End If
    End Sub
'End Page Class_Initialize Event

'Method InitIncludes @1-274D8C88
    Sub InitIncludes(path)
        TemplatePathValue=path
    End Sub
'End Method InitIncludes

'Page Class_Terminate Event @1-A52AE356
    Private Sub Class_Terminate()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Me)
        Set Page = Nothing
        If NOT Visible Then _
            Exit Sub
    End Sub
'End Page Class_Terminate Event

'Page BindEvents Method @1-D8FDB1E8
    Sub BindEvents()
        CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Me)
    End Sub
'End Page BindEvents Method

'Operations Method @1-E8B9371E
    Function Operations()
        If NOT Visible Then _
            Exit Function
        Operations = Redirect
    End Function
'End Operations Method

'Initialize Method @1-6D872F79
    Sub Initialize()
        CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Me)
        If NOT Visible Then _
            Exit Sub
        Set HTMLTemplate = new clsTemplate
        Set HTMLTemplate.Cache = TemplatesRepository
        HTMLTemplate.LoadTemplate ScriptPath & TemplatePathValue & TemplateFileName
        Set Tpl = HTMLTemplate.Block("main")
        
        home_link.Link = ""
        home_link.Page = Page.TemplateURL & "Default.asp"
        
        newthread_link.Link = ""
        newthread_link.Page = Page.TemplateURL & "NewThread.asp"
    End Sub
'End Initialize Method

'Page Show Method @1-1DCEC850
    Sub Show(MainTpl, Name)
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
        If NOT Visible Then _
            Exit Sub
        home_link.Show Tpl
        newthread_link.Show Tpl
        HTMLTemplate.Parse "main", False
        MainTpl.Variable(Name) = HTMLTemplate.GetVar("main")
    End Sub
'End Page Show Method

'Let TemplatePath Property @1-520E3E1A
    Property Let TemplatePath(NewTemplatePath)
        TemplatePathValue = NewTemplatePath
    End Property
'End Let TemplatePath Property

'Get TemplatePath Property @1-9428206A
    Property Get TemplatePath
        TemplatePath = TemplatePathValue
    End Property
'End Get TemplatePath Property

'TemplateURL Property @1-CFFB06B3
    Property Get TemplateURL
        TemplateURL = Replace(TemplatePathValue, "\", "/")
    End Property
'End TemplateURL Property

End Class 'End Header Class @1-A61BA892


%>