'-------------------------------------------------------------------------

' Write page footer

'-------------------------------------------------------------------------

Function Page_Header() As String

Dim sBuffer As String

 

sBuffer = File_Load( _

                    LL_DataByName(gTheme, "Theme_AbsolutePath") & _

                    LL_DataByName(gConfig, "Theme_Header") _

                   )

Function = sBuffer

End Function