<%
    Dim hIFrame As String = Request.QueryString.Item("iframe")
    If hIFrame <> "iframe" Then
        Dim HeaderFormID As Integer
        If Integer.TryParse(Request.QueryString.Item("fid"), HeaderFormID) Then
            'THIS IS VARIABLE IS ONLY USED TO ACCESS THE READONLY PARAMS IIN THIS CLASS NOTHING ELSE
            ' SO THERE IS NO HAR IN PASSING BLANK INITIALIZATION VALUES
            Dim hADXOEF As New ADXCalendar.ADXOEFacility("", "")
                
            If System.IO.File.Exists(Server.MapPath("~\FacilityOEData\" & hADXOEF.HeaderFName & HeaderFormID.ToString & ".html")) = True Then
                'A CUSTOM HEADER EXISTS
                Dim h_sr As New System.IO.StreamReader(Server.MapPath("~\FacilityOEData\" & hADXOEF.HeaderFName & HeaderFormID.ToString & ".html"))
                Response.Write(h_sr.ReadToEnd)
                h_sr.Close()
            Else
                'LOAD THE DEFAULT CALENDAR HEADER
                Dim wClient As New System.Net.WebClient()
                Dim bin() As Byte = wClient.DownloadData(ADXCalendar.AdminFunctions.ReturnBaseCalendarURL(Request) & "GetHeader.aspx")
                Response.BinaryWrite(bin)
            End If
        
            hADXOEF.DisposeClass()
        Else
            'THIS IS NOT A VALID REQUEST
        End If
    Else
        'DO NOT LOAD HEADERS INTO AN IFRAME
    End If
    
%>