'#Reference {A3B5C45B-F842-44fc-A5E5-50CED69BA86E}#2.0#0#C:\Program Files\Mindjet\MindManager 6\Mm5WebExport.dll#Mm5webexport 2.0 Type Library
'#Uses "ParameterNames.mmbas"
'#Uses "GlobalUtilities.mmbas"

Option Explicit

Sub Main

    Dim addin As Mm5WebExportAddIn
    Dim webex As WebExport
    Dim aPage As Mm5WebExportLib.Page

    Set addin = WebExportHelper.WebExportAddIn
    Set webex = addin.ActiveWebExport

    Dim count As Long
    Dim i As Long
    Dim template As String
    Dim topicString As String
    Dim bodyString As String

    On Error GoTo ReportError
    
    webex.Trace("Entering PageHd.mmbas",2)

    template = webex.ReadFile("PageHdUtil.htm")

    ' Read our template
    topicString = template

    ' Process all commands and parameters
    ProcessString webex, topicString

    ' Our merged string to write back
    bodyString = topicString

    ' Write out the result
    webex.PushString(bodyString)

    webex.Trace("Exiting PageHd.mmbas",2)

    Exit Sub
 
ReportError:
    ProcessError(webex)
    Exit Sub
 
End Sub
