
<!-- ========================================== -->
<!-- Include file 'CommonSetUpBasic.php' opened -->
<!-- ========================================== -->


<!-- ============================================== -->
<!-- Include file 'CommonSetUp.php' opened -->
<!-- ============================================== -->


<!-- ============================================== -->
<!-- Include file 'ApplicationFunctions.php' opened -->
<!-- ============================================== -->

 
<!-- =============================================== -->
<!-- Include file 'ApplicationFunctions2.php' opened -->
<!-- =============================================== -->

 
<!-- =========================================== -->
<!-- Include file 'DatabaseFunctions.php' opened -->
<!-- =========================================== -->


<!-- ==================================================== -->
<!-- Include file 'DatabaseFunctions_MailList.php' opened -->
<!-- ==================================================== -->


<!-- =================================================== -->
<!-- Include file 'DatabaseFunctions_Artists.php' opened -->
<!-- =================================================== -->


<!-- ======================================================= -->
<!-- Include file 'DatabaseFunctions_ArtistTags.php' opened -->
<!-- ======================================================= -->

 
<!-- ============================================================= -->
<!-- Include file 'DatabaseFunctions_ArtistArtworkTags.php' opened -->
<!-- ============================================================= -->

 
<!-- ==================================================== -->
<!-- Include file 'DatabaseFunctions_Artworks.php' opened -->
<!-- ==================================================== -->

 
<!-- ======================================================= -->
<!-- Include file 'DatabaseFunctions_ArtworkTags.php' opened -->
<!-- ======================================================= -->

 
<!-- ================================================= -->
<!-- Include file 'DatabaseFunctions_Poems.php' opened -->
<!-- ================================================= -->

   
<!-- ======================================== -->
<!-- Include file 'ImageFunctions.php' opened -->
<!-- ======================================== -->


<!-- ======================================= -->
<!-- Include file 'LanguageArray.php' opened -->
<!-- ======================================= -->


<!-- Date('D'): 'Thu' -->

<!-- ========================================== -->
<!-- Include file 'phpHTMLFunctions.php' opened -->
<!-- ========================================== -->

 
<!-- =================================== -->
<!-- Include file 'ShowImage.php' opened -->
<!-- =================================== -->

 
<!-- ======================================= -->
<!-- Include file 'LinkFunctions.php' opened -->
<!-- ======================================= -->

 <!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'BannerNeeded' -->
<!-- GetValue: 'false                ' -->
<!-- GetValue: '' -->

<!-- BannerNeeded: '' -->
<!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'FullDescriptionNeeded' -->
<!-- GetValue: '' -->
<!-- GetValue: '' -->

<!-- FullDescriptionNeeded: '' -->
<!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'Debug' -->
<!-- GetValue: '1' -->
<!-- GetValue: '1' -->
<!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'TemplateNeeded' -->
<!-- GetValue: '1' -->
<!-- GetValue: '1' -->
<!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'PortraitShown' -->
<!-- GetValue: '1' -->
<!-- GetValue: '1' -->
<!-- PHPCSU_GetBoolean -->
<!-- _GET: '
Array
(
    [BannerNeeded] => false                
    [Language] => fr
    [PoetPoemKeyName] => steven van der heyden_vuur
)

' -->
<!-- _POST: '
Array
(
)

' -->
<!-- GetParameter: 'ZoomImageShown' -->
<!-- GetValue: '1' -->
<!-- GetValue: '1' -->

<!-- Original WindowWidth: '' -->

<!-- Original WindowHeight: '' -->

    <script text="javascript">
        var OldWindowWidth = 0;
        var OldWindowHeight = 0;
        var WindowWidth = window.innerWidth;
        var WindowHeight = window.innerHeight;
        //DEBUG: alert(
        //DEBUG:     "OldWindowWidth: '" + OldWindowWidth + "';" +
        //DEBUG:     "WindowWidth: '" + WindowWidth + "';" +
        //DEBUG:     "OldWindowHeight: '" + OldWindowHeight + "';" +
        //DEBUG:     "WindowHeight: '" + WindowHeight + "';");
        if ( ( OldWindowWidth != WindowWidth) || ( OldWindowHeight != WindowHeight)){
            var OriginalURL = location.href;
            // Remove WindowWidth and WindowHeight from OriginalURL
            var queryString = location.search;
            var NewURL = '';
            NewURL =RemoveAndChangeURLParameter( OriginalURL, "WindowWidth", WindowWidth);
            NewURL =RemoveAndChangeURLParameter( NewURL, "WindowHeight", WindowHeight);
            // //DEBUG: alert( "NewURL: '" + NewURL + "'");
            location.assign( NewURL);
        } else {
            // //DEBUG: alert( "No changes");
        }
        
        // Function based on: 
        // https://stackoverflow.com/questions/1634748/how-can-i-delete-a-query-string-parameter-in-javascript
        function RemoveAndChangeURLParameter(OriginalURL, ParameterName, ParameterNewValue) {
            var NewURL = '';
            var urlparts = OriginalURL.split('?'); 
            if (urlparts.length < 2) {
                // No QueryString
                NewURL = OriginalURL + '?' + encodeURIComponent( ParameterName) + '=' + ParameterNewValue;
            } else {
                // QueryString exists
                // Remove ALL ParameterName
                var ParameterPrefix = encodeURIComponent( ParameterName) + '=';
                var ParameterArray = urlparts[1].split(/[&;]/g);
        
                // Reverse iteration to remove multiple parameters with the same ParameterName
                for (var i = ParameterArray.length; i-- > 0;) {    
                    //idiom for string.startsWith
                    if (ParameterArray[i].lastIndexOf(ParameterPrefix, 0) !== -1) {  
                        ParameterArray.splice(i, 1);
                    }
                }
                
                NewURL = urlparts[0];
                if ( ParameterArray.length == 0){
                    // no parameters in queryString
                    NewURL = NewURL + '?'; 
                } else {
                    NewURL = NewURL + '?' + ParameterArray.join('&') + '&';
                }
                NewURL = NewURL + encodeURIComponent( ParameterName) + '=' + ParameterNewValue;
            }
            return NewURL;
        }
    </script>


<!--WindowWidth: ''-->

<!--WindowHeight: ''-->

<!--LandscapeOrPortrait: 'Portrait'-->

<!DOCTYPE html>
<!-- The following line gives an error when the two end '>' are not separated, thus splitted over 3 lines -->
<!-- PHPHTML_addHTLMLangAttribute needs 2 attributes -->
<!-- * Language or "" -->
<!-- * $ModuleTrace, fictive value used -->
<html lang="fr"  style="font-size: 1.0em;">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <meta name="author" content="Art Sanctuary">


        <title lang = 'fr'>
            
        </title>
    
        <link
            rel = 'canonical'
            href = 'www.the-enchanted-garden.info/Collection/PoemPage.php?Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur'
        />
    
                <meta
                    name='description'
                    content='Mosaic with artist and artwork pictures for the international art exhibition Collection'
                >
            <meta name="keywords" content="The Enchanted Garden,Le Jardin Enchanté,De Betoverende Tuin">
    <!-- Needed in ALL webpages -->
    <!-- This gives the browser instructions on how to control the page's dimensions and scaling. -->
    <!-- The width=device-width part sets the width of the page to follow the screen-width of the device (which will vary depending on the device). -->
    <!-- The initial-scale=1.0 part sets the initial zoom level when the page is first loaded by the browser. -->
    <meta name="viewport" content="width=device-width, initial-scale=1.0">

    <style>
        /* Cannot be seen in the source-code (ctrl-u), thus difficult to debug */
        /* TODO: Reduce the StyleSheet */
        @import url( "StyleSheetUserInterface.css");

        /*
            How to understand @media:
            (min-width: MINpx) and (max-width: MAXpx) means:
            with a screen-size between MINpx and MAXpx execute the next statements.
            MINpx and MAXpx are inclusive, thus there can be overlap !!!
        */

        /*
            Main-screen corresponding with 'Home'
        */
        @media only screen and (max-width: 1200px) {
            #LogoASId, #SculptureImageLeftId, #WeatherForecastId {
                display: none;
            }
        }
        @media only screen and (max-width: 1200px) {
            #LogoGlassId, #StatisticsId {
                display: none;
            }
        }


        /*
            Number of columns in SelectionArtworkPanel
            The first menu column needs +/-100px
            An Artwork-column needs +/-350px
            Two Artwork columns need +/-100px + 350px + 350px = +/-800px
            Three Artwork columns need +/-100px + 350px + 350px + 350px = +/-1150px,
                but at 1200px the left and right navigationapanel appear, thus use 1200px
        */
        @media only screen and (max-width: 800px) {
            #DivFlexColumns1Id {
                display: block;
            }
            #DivFlexColumns2Id {
                display: none;
            }
            #DivFlexColumns3Id {
                display: none;
            }
        }
        @media only screen and (min-width: 800px) and (max-width: 1200px) {
            #DivFlexColumns1Id {
                display: none;
            }
            #DivFlexColumns2Id {
                display: block;
            }
            #DivFlexColumns3Id {
                display: none;
            }
        }
        @media only screen and (min-width: 1200px) {
            #DivFlexColumns1Id {
                display: none;
            }
            #DivFlexColumns2Id {
                display: none;
            }
            #DivFlexColumns3Id {
                display: block;
            }
        }

        /*
            In ArtistsPage, the MainImage for an Artist:
            - max-width minder dan 1200px: use 'Mobile' set-up: Geen MainImage (PHP-code makes this still possible)
            - max-width groter dan 1200px: use 'PC' set-up: MainImage on the same row as Artist-information
        */
        @media only screen and (max-width: 1200px) {
            #MainImageFramemobile {
                display: none;
            }
            #MainImageFramepc {
                display: none;
            }
        }
        @media only screen and (min-width: 1200px) {
            #MainImageFramemobile {
                display: none;
            }
            #MainImageFramepc {
                display: block;
            }
        }
    </style>

    <!-- Javascript Functions -->
    <!-- TODO: Put scripts in HTML comment for non-script users, gives issues when .js adds comments in HTML -->
    <!-- begin- and end-script-tag included in the 'OpenIncludeFile -->
    <script>
// JavascriptFuncions

var ArtistListPrefix = "ArtistList";
var LineBreakHTML = "\n";

// General function
//----------------------------------------------------------------------------

function ReadMore( ReadMoreId) {
    // Javascript to define onclick function
    // onmouseenter function is not more used
    // Needed for PHPAF_BeginReadMore and PHPAF_EndReadMore
    
  var x = document.getElementById( ReadMoreId);
  var ButtonElement = document.getElementById( "Button" + ReadMoreId);
  if (x.style.display === "none") {
    x.style.display = "block";
    ButtonElement.style.left = "200px";
    ButtonElement.innerText = ">>> Read less <<<";
  } else {
    x.style.display = "none";
    ButtonElement.style.left = "0px";
    ButtonElement.innerText = "<<< Read more >>>";
    // Mouse has to remain on the same position in the page
    // Without this line the whole webpage scrolls down
    // what is not nice for the reader
    location.href = "#" + "Button" + ReadMoreId;
  }
}    

//---------------------------------------------------------------------------

function JSTPF_Alert( AlertMessage, ModuleTrace = "Unknown"){
    var ModuleName = 'JSTPF_Alert';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        alert( AlertMessage);
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }    
}

// General function
//---------------------------------------------------------------------------

function JSTPF_CreateRightNavigationPanel(ClassName, MenuContainerId, ModuleTrace = "Unknown"){
    var ModuleName = 'JSTPF_CreateRightNavigationPanel';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        
        var ReferenceElementCollection = document.getElementsByClassName(ClassName);
        var MenuContainer = document.getElementById( MenuContainerId);
        
        var ReferenceElementIndex;
        for (ReferenceElementIndex = 0; ReferenceElementIndex < ReferenceElementCollection.length; ReferenceElementIndex++) {
            JSTPF_CreateRightNavigationaItem( ReferenceElementCollection[ReferenceElementIndex], MenuContainer);
        }
        
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }    
}

// General function
//---------------------------------------------------------------------------

function JSTPF_CreateRightNavigationaItem(ReferenceElement, MenuContainer, ModuleTrace = "Unknown"){
    var ModuleName = 'JSTPF_CreateRightNavigationaItem';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        
        var MenuElement;
        var ReferenceElementId = ReferenceElement.id;
        if (
                ReferenceElementId !== 'AnchorTopOfPage' &&
                ReferenceElementId !== 'AnchorBottomOfPage'){
            MenuElement = document.createElement("A");
            MenuContainer.appendChild(MenuElement);
            MenuElement.href = '#' + ReferenceElementId;
            if ( ReferenceElement.getAttribute("data-name") === null) {
                MenuElement.innerHTML = ReferenceElementId;
            } else {
                if ( ReferenceElement.getAttribute("data-name").length === 0){
                    MenuElement.innerHTML = ReferenceElementId;
                } else {
                    MenuElement.innerHTML = ReferenceElement.getAttribute("data-name");
                }
            }
            // Get the items in the right navigation panel: try to set Style: display:inline-block
            MenuElement.style.display = "inline-block"; // No result
            MenuElement = document.createElement("BR");
            MenuContainer.appendChild(MenuElement);
        } else {
            // 'a'-tag uses icon already defined in .php
        }

    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }    
}

// General function
//---------------------------------------------------------------------------

function JSGF_ReplaceAll( OriginalString, SearchString, ReplaceString, ModuleTrace = "Unknown"){
    // Javascript 'replace'-action only replaces one occurence not all occurences.
    // To replace all occurences a regexp have to be used,
    // it means that all special characters have to be escaped.
    // This functions works only with strings and replace all occurences.
    // It returns a new string after the replacements are executed
    
    var ModuleName = 'JSGF_ReplaceAll';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var FunctionResult = '';
    
    try {
        if( SearchString.length === 0 && ReplaceString.length === 0) {
            FunctionResult = OriginalString;
            DebugWindow = JSCF_ShowVariable( ModuleName, 'OriginalString', OriginalString, DebugWindow, ModuleTrace);
            DebugWindow = JSCF_ShowVariable( ModuleName, 'SearchString', SearchString, DebugWindow, ModuleTrace);
            DebugWindow = JSCF_ShowVariable( ModuleName, 'ReplaceString', ReplaceString, DebugWindow, ModuleTrace);
            DebugWindow = JSCF_ShowVariable( ModuleName, 'Message', 'OriginalString or ReplaceString are empty', DebugWindow, ModuleTrace);
        } else {
            FunctionResult = OriginalString.split( SearchString).join( ReplaceString);
        }
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            'OriginalString: ' + OriginalString + ': ' +
            'SearchString: ' + SearchString + ': ' +
            'ReplaceString: ' + ReplaceString + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        FunctionResult = '';
    }
    return FunctionResult;
}

//---------------------------------------------------------------------------

function JSUIF_ConvertToHTMLString( InputString, ModuleTrace = "Unknown" ){
    // 
    var ModuleName = 'JSUIF_ConvertToHTMLString';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var i = InputString.length;
        var a = []; 
      
        while ( i--) { 
            var iC = InputString[i].charCodeAt( );
            switch (iC) {
                case 34:
                case 39:
                case 96:
                case 128:
                case 145:
                case 146:
                case 147:
                case 148:
                case 180:
                case 192:
                case 193:
                case 194:
                case 196:
                case 199:
                case 200:
                case 201:
                case 202:
                case 203:
                case 206:
                case 207:
                case 224:
                case 225:
                case 226:
                case 228:
                case 231:
                case 232:
                case 233:
                case 234:
                case 235:
                case 238:
                case 239:
                case 250:
                case 251:
                case 252:
                    a[i] = '&#' + iC + ';';
                    break;
                default:
                    a[i] = InputString[i];
                    break;
            }
        } 
        // Convert the elements of an array into a string
        return a.join( ''); 
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            'InputString: ' + InputString + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        return '';
    }
}

//---------------------------------------------------------------------------
// GeneralFunction

function JSGF_CopyAttributeFromElementToImageRecord( DataAttribute, CurrentElement, ImageRecord, ModuleTrace = "Unknown"){
    var ModuleName = 'JSGF_CopyAttributeFromElementToImageRecord';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        if ( typeof CurrentElement !== "undefined" && CurrentElement !==null){
            var AttributeName = 'data-' + DataAttribute.toLowerCase( );
            if ( CurrentElement.hasAttribute( AttributeName)){
                ImageRecord[DataAttribute] = CurrentElement.getAttribute( AttributeName);
            } else {
                ImageRecord[DataAttribute] = '';
            }
        } else {
            ImageRecord[DataAttribute] = '';
        }
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            'DataAttribute: ' + DataAttribute + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        ImageRecord[DataAttribute] = '';
    }
    // if (ImageRecord[DataAttribute].length == 0){
    //     DebugWindow = JSCF_ShowVariable( ModuleName, 'DataAttribute', DataAttribute, DebugWindow, ModuleTrace);
    //     DebugWindow = JSCF_ShowVariable( ModuleName, 'CurrentElement', CurrentElement, DebugWindow, ModuleTrace);
    //     DebugWindow = JSCF_ShowVariable( ModuleName, 'ImageRecord', ImageRecord, DebugWindow, ModuleTrace);
    // }
    
    return ImageRecord;
}

//---------------------------------------------------------------------------
// GeneralFunction

function JSGF_CopyAttributesFromElementToImageRecord( CurrentElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSGF_CopyAttributesFromElementToImageRecord';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var ImageRecord = [];
    
    try {
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'ImageFile', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'ImageType', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'FullName', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'KeyName', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'ArtworkTitle', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'ImageWidth', CurrentElement, ImageRecord, ModuleTrace);
        ImageRecord = JSGF_CopyAttributeFromElementToImageRecord( 'ImageHeight', CurrentElement, ImageRecord, ModuleTrace);
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

    return ImageRecord;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_CopyAttributeFromToElement( DataAttributeName, FromElement, ToElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_CopyAttributeFromToElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        if( FromElement.hasAttribute( DataAttributeName)){
            ToElement.setAttribute( DataAttributeName, FromElement.getAttribute( DataAttributeName));
        } else {
            ToElement.setAttribute( DataAttributeName, '');
        }
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    return ToElement;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_CopyAttributesFromToElement( FromElement, ToElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_CopyAttributesFromToElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-imagefile', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-imagetype', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-imagewidth', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-imageheight', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-fullname', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-keyname', FromElement, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromToElement( 'data-artworktitle', FromElement, ToElement, ModuleTrace);
    } catch( JSError) {
        JSError.message = 'ModuleName: ' + ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }    
    return ToElement;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_CopyAttributeFromImageRecordToElement( AttributeName, FromImageRecord, ToElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_CopyAttributeFromImageRecordToElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        if ( typeof FromImageRecord[AttributeName] !== "undefined" && FromImageRecord[AttributeName] !== null){
            var DataAttributeName = 'data-' + AttributeName.toLowerCase( );
            if ( typeof ToElement !== "undefined" && ToElement !== null){
                ToElement.setAttribute( DataAttributeName, FromImageRecord[AttributeName]);
            } else {
                // Do nothing
            }
        } else {
            // Do nothing
        }
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

    return ToElement;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_CopyAttributesFromImageRecordToElement( FromImageRecord, ToElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_CopyAttributesFromImageRecordToElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'ImageFile', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'ImageType', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'ImageWidth', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'ImageHeight', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'FullName', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'KeyName', FromImageRecord, ToElement, ModuleTrace);
        ToElement = JSUIF_CopyAttributeFromImageRecordToElement( 'ArtworkTitle', FromImageRecord, ToElement, ModuleTrace);
     } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    return ToElement;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_UpdateArtist( TriggerElementId, NextKeyName, KeyName, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_UpdateArtist';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        // Refresh the page with the new artist
        var PHPLanguage = "fr";
        var PHPYear     = "collection";
        var URL =
            "ArtistPage.php?KeyName=" +
            NextKeyName +
            "&BannerNeeded=FALSE&Language=" + PHPLanguage + "&Year=" + PHPYear;
        window.open( URL, '_self');
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            'TriggerElementId: ' + TriggerElementId + ': ' +
            'NextKeyName: ' + NextKeyName + ': ' +
            'KeyName: ' +KeyName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_PrevImage( TriggerElementId, ImageFile, CheckSameArtist, UpdateAction, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_PrevImage';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        if (UpdateAction.length == 0){
            UpdateAction = 'JSUIF_UpdateImage';
        }
        JSUIF_GetNextPrevElement(
            TriggerElementId,       
            ImageFile,          // - KeyName
            false,              // - GetNextElement = true, GetPrevElement = false
            'ImageFileList',    // - ListName: Needed to select the correct list
            CheckSameArtist,    // - 'FALSE': don't check if it's the same artist
            UpdateAction      // - UpdateAction: 'JSUIF_UpdateImage' or 'JSUIF_UpdateArtist' or 'Refresh'
        );
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_NextImage( TriggerElementId, ImageFile, CheckSameArtist, UpdateAction, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_NextImage';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        if (UpdateAction.length == 0){
            UpdateAction = 'JSUIF_UpdateImage';
        }
        JSUIF_GetNextPrevElement(
            TriggerElementId,       
            ImageFile,          // - KeyName
            true,               // - GetNextElement = true, GetPrevElement = false
            'ImageFileList',    // - ListName: Needed to select the correct list
            CheckSameArtist,    // - 'FALSE': don't check if it's the same artist
            UpdateAction      // - UpdateAction: 'JSUIF_UpdateImage' or 'JSUIF_UpdateArtist' or 'Refresh'
        );
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_PrevArtist( TriggerElementId, KeyName, CheckSameArtist, UpdateAction, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_PrevArtist';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var KeyNameId = ArtistListPrefix + ' ' + KeyName;
        if (UpdateAction.length == 0){
            UpdateAction = 'JSUIF_UpdateArtist';
        }
        JSUIF_GetNextPrevElement(
            TriggerElementId,       
            KeyNameId,          // - KeyName
            false,              // - GetNextElement = true, GetPrevElement = false
            'ArtistList',       // - ListName: Needed to select the correct list
            'FALSE',            // - 'FALSE': don't check if it's the same artist
            UpdateAction      // - UpdateAction: 'JSUIF_UpdateImage' or 'JSUIF_UpdateArtist' or 'Refresh'
        );

    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_NextArtist( TriggerElementId, KeyName, CheckSameArtist, UpdateAction, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_NextArtist';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var KeyNameId = ArtistListPrefix + ' ' + KeyName;
        if (UpdateAction.length == 0){
            UpdateAction = 'JSUIF_UpdateArtist';
        }
        JSUIF_GetNextPrevElement(
            TriggerElementId,       
            KeyNameId,              // - KeyName
            true,                   // - GetNextElement = true, GetPrevElement = false
            'ArtistList',           // - ListName: Needed to select the correct list
            'FALSE',                // - 'FALSE': don't check if it's the same artist
            UpdateAction          // - UpdateAction: 'JSUIF_UpdateImage' or 'JSUIF_UpdateArtist' or 'Refresh'
        );
        
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_GetNextPrevElement(
        TriggerElementId,   // - Id of Element to be updated    
        CurrentElementId,   // - KeyName or ElementId in list
        GetNextElement,     // - GetNextElement = true, GetPrevElement = false
        ListName,           // - ListName: Needed to select the correct list
        CheckSameArtist,    // -'FALSE': don't check if it's the same artist
        UpdateAction,       // - UpdateAction: 'JSUIF_UpdateImage' or 'JSUIF_UpdateArtist' or to be defined
        ModuleTrace = "Unknown"
    ){

    var ModuleName = 'JSUIF_GetNextPrevElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var CurrentElement = document.getElementById( CurrentElementId);
        var NextElement;
        if ( typeof CurrentElement === "undefined" || CurrentElement === null){
            // Error without known cause
            // To be solved
        } else {
            if ( GetNextElement){
                NextElement = CurrentElement.nextSibling;
            } else {
                NextElement = CurrentElement.previousSibling;
            }
            var GetFirstOrLastElement = true;
            if ( JSUIF_CheckNextElementIsOK( NextElement, CurrentElement)){
                // 'FALSE': don't check if it's the same artist
                if ( CheckSameArtist != 'FALSE'){
                    if ( JSUIF_SameArtist( NextElement, CurrentElement)) {
                        GetFirstOrLastElement = false;
                    } else {
                        GetFirstOrLastElement = true;
                    }
                } else {
                    GetFirstOrLastElement = false;
                }
            } else {
                GetFirstOrLastElement = true;
            }
            
            if ( GetFirstOrLastElement){
                // GetNextElement = true: Get the first CurrentElementId for the Artist: FirstFlag = true
                // GetNextElement = false: Get the last CurrentElementId for the Artist: FirstFlag = false
                NextElement = JSAF_GetFirstOrLastElementId( CurrentElement, GetNextElement, CheckSameArtist, ListName, ModuleTrace);
            } else {
                // Nothing to do
            }   
        
            if ( UpdateAction == 'JSUIF_UpdateImage'){
                JSUIF_UpdateImage( TriggerElementId, NextElement, CurrentElement);
            } else if ( UpdateAction == 'JSUIF_UpdateArtist') {
                JSUIF_UpdateArtist( TriggerElementId, NextElement.getAttribute( 'data-keyname'), CurrentElement.getAttribute( 'data-keyname'));
            } else if ( UpdateAction == 'Refresh') {
                var CurrentURL = window.location.href;
                // Replace '%20' by ' '
                CurrentURL = JSGF_ReplaceAll( CurrentURL, '%20', ' ', ModuleTrace);
                var NextURL = '';
                // If URL contains 'ImageFile' (CurrentElement.id) the replace it by the new 'Imagefile' (NextElement.id)
                // Else add 'ImageFile' parameter to URL
                if (CurrentURL.search('ImageFile') >= 0){
                    NextURL = JSGF_ReplaceAll( CurrentURL, CurrentElement.id, NextElement.id, ModuleTrace);
                } else {
                    if (window.location.search.length > 0) {
                        // Already a query string, add a supplementary parameter
                        NextURL = CurrentURL + '&';
                    } else {
                        // No query string, add first parameter
                        NextURL = CurrentURL + '?';
                    }
                    NextURL =  NextURL + 'ImageFile=' + NextElement.id;
                }
                window.location.assign( NextURL);
            } else {
                alert ( 
                    'UpdateAction: ' +
                    UpdateAction +
                    ': Not supported!');
    
            }
        }

    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}
//---------------------------------------------------------------------------
// UserInterface

function JSAF_GetFirstOrLastElementId( CurrentElement, FirstFlag, CheckSameArtist, ListName, ModuleTrace = "Unknown"){
    var ModuleName = 'JSAF_GetFirstOrLastElementId';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var NextElement;
    
    try {
        // Get the first or last CurrentElementId for the Artist
        var ArtistKeyName = CurrentElement.getAttribute( 'data-keyname');
        var ClassNames = ListName;
        // 'FALSE': don't check if it's the same artist
        if ( CheckSameArtist != 'FALSE') {
            // Add KeyName to the ClassNames
            ClassNames = ClassNames + ' ' + JSGF_ReplaceAll( ArtistKeyName, ' ', '');
        }
        var ArtworkArray = document.getElementsByClassName( ClassNames);
        var ElementIndex = 0;
        if ( FirstFlag === true){
            ElementIndex = 0;
        } else {
            // Last artwork in the list
            ElementIndex = ArtworkArray.length -1;
        }
        NextElement = ArtworkArray[ElementIndex];

    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    
    return NextElement;
}

//---------------------------------------------------------------------------
// UserInterface

function JSAF_GetFirstOrLastArtist( KeyName, FirstFlag, ModuleTrace = "Unknown"){
    // Get the first or last KeyName for Artist
    // Prefix in element.id to identify the ArtistList
    var ModuleName = 'JSAF_GetFirstOrLastArtist';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var NextArtist;
    
    try {
        var ArtistClass = ArtistListPrefix;
        var ArtistArray = document.getElementsByClassName( ArtistClass);
        var ElementIndex = 0;
        if ( FirstFlag === true){
            ElementIndex = 0;
        } else {
            // Last artwork in the list
            ElementIndex = ArtistArray.length -1;
        }
        // Only one replacement needed, the Javascript replace can be used
        var NextArtist = ArtistArray[ElementIndex].id.replace( ArtistListPrefix + '_', '');

    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

    return NextArtist;

}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_CheckNextElementIsOK( NextElement, CurrentElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_CheckNextElementIsOK';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var NextElementIsOK = false;
    
    try {
        if ( typeof CurrentElement !== "undefined" &&
            CurrentElement !== null &&
            typeof NextElement !== "undefined" &&
            NextElement !== null){
            if ( CurrentElement.id.length == 0 || NextElement.id.length == 0){
                NextElementIsOK = false;
            } else {
                NextElementIsOK = true;
            }
        } else {
            NextElementIsOK = false;
        }  

    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

    return NextElementIsOK;
}

//---------------------------------------------------------------------------
// UserInterface

function JSUIF_SameArtist( NextElement, CurrentElement, ModuleTrace = "Unknown"){
    // Check same artist
    var ModuleName = 'JSUIF_SameArtist';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var SameArtist = false;
    
    try {
        var CurrentKeyName = CurrentElement.getAttribute( 'data-keyname');
        var NextKeyName = NextElement.getAttribute( 'data-keyname');
        if ( CurrentKeyName == NextKeyName){
            SameArtist = true;
        } else {
            SameArtist = false;
        }

    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    
    return SameArtist;
}

//---------------------------------------------------------------------------
// Debug function

function JSDEBUGF_PrintElementHTMLCode( DebugElement, ModuleTrace = "Unknown"){
    // Write innerHTML of an element to DebugWindow.document.write
    var ModuleName = 'JSDEBUGF_PrintElementHTMLCode';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var DebugElementHTML = DebugElement.innerHTML;
    
    try {
        JSDEBUGF_PrintHTMLCode( DebugElementHTML);
        
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------
// Debug function

function JSDEBUGF_PrintHTMLCode( DebugElementHTML, ModuleTrace = "Unknown"){
    // Write HTMLcode to DebugWindow.document.write
    var ModuleName = 'JSDEBUGF_PrintHTMLCode';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
    
        var ElementHTML = JSGF_ReplaceAll( DebugElementHTML, "<", "#B#", ModuleTrace);
        ElementHTML = JSGF_ReplaceAll( ElementHTML, ">", "#E#", ModuleTrace);
        if ( DebugWindow === null){
            DebugWindow = window.open( ); 
        }
        DebugWindow.document.write( 'ModuleName; ' + ModuleName + LineBreakHTML);
        DebugWindow.document.write( 'ElementHTML: ' + ElementHTML + LineBreakHTML);
        DebugWindow.document.write( LineBreakHTML);

    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------

function JSUIF_UpdateImage( TriggerElementId, NextElement, CurrentElement, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_UpdateImage';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var CurrentImageRecord = JSGF_CopyAttributesFromElementToImageRecord( CurrentElement, ModuleTrace);
        var NextImageRecord = JSGF_CopyAttributesFromElementToImageRecord( NextElement, ModuleTrace);
        JSUIF_UpdateImageUsingImageRecords( TriggerElementId, NextImageRecord, CurrentImageRecord, ModuleTrace);
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------

function JSUIF_UpdateImageUsingImageRecords( TriggerElementId, NextImageRecord, CurrentImageRecord, ModuleTrace = "Unknown"){
    var ModuleName = 'JSUIF_UpdateImageUsingImageRecords';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        var FieldIdCore = TriggerElementId;
        var FieldIdTop = FieldIdCore + '_' + 'top';
        
        var ElementTop = document.getElementById( FieldIdTop);
        if (typeof ElementTop === "undefined" || ElementTop === null){
            return;
        }
        
        var CurrentElementHTML = ElementTop.innerHTML;
        var NextElementHTML = ElementTop.innerHTML;
        
        // @@@ Not needed?
        var ContinueFlag = true;
        
        // Check on empty fields
        ModuleTrace = ModuleTrace + " & " + "Check on empty fields";
        if( CurrentImageRecord.ImageFile.length === 0  ||
            CurrentImageRecord.ArtworkTitle.length === 0 ||
            CurrentImageRecord.FullName.length === 0 ||
            CurrentImageRecord.KeyName.length === 0 ) {
        } else {
            // We try to not repeat the same value more than ones
            ModuleTrace = ModuleTrace + " & " + "We try to not repeat the same value more than ones";
            var NextImageFile = JSGF_ReplaceAll( NextImageRecord.ImageFile, ' ', '§1§1§1§1§', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, CurrentImageRecord.ImageFile, NextImageFile, ModuleTrace);
            
            var NextArtworkTitle = JSGF_ReplaceAll( NextImageRecord.ArtworkTitle, ' ', '§2§2§2§2§', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, CurrentImageRecord.ArtworkTitle, NextArtworkTitle, ModuleTrace);
            
            var NextFullName = JSGF_ReplaceAll( NextImageRecord.FullName, ' ', '§3§3§3§3§', ModuleTrace);
            // Use JSUIF_ConvertToHTMLString???
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, CurrentImageRecord.FullName, NextFullName, ModuleTrace);

            var NextKeyName = JSGF_ReplaceAll( NextImageRecord.KeyName, ' ', '§4§4§4§4§', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, CurrentImageRecord.KeyName, NextKeyName, ModuleTrace);
            
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, '§1§1§1§1§', ' ', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, '§2§2§2§2§', ' ', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, '§3§3§3§3§', ' ', ModuleTrace);
            NextElementHTML = JSGF_ReplaceAll( NextElementHTML, '§4§4§4§4§', ' ', ModuleTrace);
    
            // Change ElementTop
            ModuleTrace = ModuleTrace + " & " + "hange ElementTop";
            if (typeof ElementTop === "undefined" || ElementTop === null ||
                typeof NextElementHTML === "undefined" || NextElementHTML === null){
                // Something is wrong, Generates error message
                ModuleTrace = ModuleTrace + " & " + "Something is wrong, Generates error message";
                if ( DebugWindow === null){
                    DebugWindow = window.open( ); 
                }
                DebugWindow.document.write( 
                    'ModuleName: ' + ModuleName + LineBreakHTML);
                DebugWindow.document.write( 
                    'ModuleTrace: ' + ModuleTrace + LineBreakHTML);
                DebugWindow.document.write( 
                    'CurrentElementHTML: ');
                JSDEBUGF_PrintHTMLCode( CurrentElementHTML); // Write to DebugWindow
                DebugWindow.document.write( 
                    'NextElementHTML: ');
                JSDEBUGF_PrintHTMLCode( NextElementHTML); // Write to DebugWindow
                DebugWindow.document.write( 
                    LineBreakHTML);
            } else {
                // All oK, continue normal processing
                ModuleTrace = ModuleTrace + " & " + "All oK, continue normal processing";
                ElementTop.innerHTML = NextElementHTML;
                ElementTop = JSUIF_CopyAttributesFromImageRecordToElement( NextImageRecord, ElementTop, ModuleTrace, ModuleTrace);
                
                // Change attributes also in elements corresponding with FieldIdImage & FieldIdCell
                ModuleTrace = ModuleTrace + " & " + "Change attributes also in elements corresponding with FieldIdImage & FieldIdCell";
                var FieldIdCell = FieldIdCore + '_' + 'cell';
                var ElementCell = document.getElementById( FieldIdCell);
                if (typeof ElementCell === "undefined" || ElementCell === null) {
                    // Something is wrong, Generates error message
                    ModuleTrace = ModuleTrace + " & " + "Something is wrong, Generates error message";
                    if ( DebugWindow === null){
                        DebugWindow = window.open( ); 
                    }
                    DebugWindow.document.write( 
                        'ModuleName: ' + ModuleName + LineBreakHTML);
                    DebugWindow.document.write( 
                        'ModuleTrace: ' + ModuleTrace + LineBreakHTML);
                    DebugWindow.document.write( 
                        'FieldIdCell: ' + FieldIdCell);
                    DebugWindow.document.write( 
                        LineBreakHTML);
                } else {
                    // All oK, continue normal processing
                    ModuleTrace = ModuleTrace + " & " + "All oK, continue normal processing";
                    ElementCell = JSUIF_CopyAttributesFromImageRecordToElement( NextImageRecord, ElementCell, ModuleTrace);
                    var FieldIdImage = FieldIdCore + '_' + 'image';
                    var ElementImage = document.getElementById( FieldIdImage);
                    ElementImage = JSUIF_CopyAttributesFromImageRecordToElement( NextImageRecord, ElementImage, ModuleTrace);
                }
            }
        }
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------

function JSUIF_ResizeToExtra( OriginalWidth, OriginalHeight, MinimalWidth, MinimalHeight, ModuleTrace = "Unknown"){
    // Resize so that the image covers at least the whole rectangle MinimalWidth, MinimalHeight
    var ModuleName = 'JSUIF_ResizeToExtra';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var NewWidth = 0;
    var NewHeight = 0;
    
    try {
    	var OriginalRatio = OriginalHeight / OriginalWidth;
    	if ( MinimalHeight <= MinimalWidth * OriginalRatio){
    	    // We use MinimalWidth as reference and calculate the corresponding NewHeight
    	    NewWidth = MinimalWidth;
    	    NewHeight = Math.floor( MinimalWidth * OriginalRatio);
    	} else {
    	    // MinimalHeight has to be used as a reference
    	    NewWidth = Math.floor( MinimalHeight / OriginalRatio);
    	    NewHeight = MinimalHeight;
    	}
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
	
	return [ NewWidth, NewHeight];
}

//---------------------------------------------------------------------------

function JSUIF_ShowMessage( ModuleName, Message, AlertOnlyFlag, ModuleTrace = "Unknown"){
    var FullMessage =
            'ModuleName: ' + ModuleName + ': ' +
            'Message: ' + Message;
    JSTPF_Alert( FullMessage, ModuleTrace);
    if (typeof AlertOnlyFlag === undefined || !AlertOnlyFlag){
        if ( DebugWindow === null){
            DebugWindow = window.open( ); 
        }
        DebugWindow.document.write( FullMessage);
        return DebugWindow;
    }
}

//---------------------------------------------------------------------------

function JSUIF_OpenFullscreen( CurrentElementId, ModuleTrace = "Unknown") {
    var ModuleName = "JSUIF_OpenFullscreen";
    ModuleTrace = ModuleTrace + ModuleName;
    
    var CurrentElement = null;

    try {
        CurrentElement = document.getElementById( CurrentElementId);
        if (CurrentElement.requestFullscreen) {
            CurrentElement.requestFullscreen();
        } else if (CurrentElement.webkitRequestFullscreen) { /* Safari */
            CurrentElement.webkitRequestFullscreen();
        } else if (CurrentElement.msRequestFullscreen) { /* IE11 */
            CurrentElement.msRequestFullscreen();
        } else {
            JSTPF_Alert(
                "Votre navigateur web ne permet pas l'affichage en mode plein écran.\n" +
                "Uw webbrowser laat het tonen op het volledige scherm niet doe.\n" +
                "Your web browser does not allow you to display in full screen mode.\n", ModuleTrace);
        }
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//---------------------------------------------------------------------------

function JSUIF_CloseFullscreenNOTNEEDED( ModuleTrace = "Unknown") {
    var ModuleName = "JSUIF_CloseFullscreen";
    ModuleTrace = ModuleTrace + ModuleName;
    
    try {
        if (document.exitFullscreen) {
            document.exitFullscreen();
        } else if (document.webkitExitFullscreen) { /* Safari */
            document.webkitExitFullscreen();
        } else if (document.msExitFullscreen) { /* IE11 */
            document.msExitFullscreen();
        } else {
            JSTPF_Alert(
                "Votre navigateur web ne permet pas l'affichage en mode plein écran.\n" +
                "Uw webbrowser laat het tonen op het volledige scherm niet doe.\n" +
                "Your web browser does not allow you to display in full screen mode.\n", ModuleTrace);
        }
    } catch( JSError) {
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}</script>
<script>
var PrefixCellId = 'cell';
var PrefixImageId = 'image';
var CaptionIdPrefix = 'caption';
// var ImageUpdateIntervalSeconds = 2000;
var ImageUpdateIntervalSeconds = 2000;
var RemoveHooverImageIntervalSeconds = 5000;

// Parameters to update images
var ImageFileShowArraySizeMax = 50; // update to ImageFileArrayOriginal.length / 2
var ImageFileArray = [];
var ImageFileShowArray = [];
var LineBreakHTML = '<br>';

// Parameters for debugging
var DebugWindow = null;
var DebugFlag = false;

function JSMPF_CreateMosaic(TableId, ThumbnailDirectory, HooverImageDirectory, ZoomImageDirectory, TemplateNeeded, ModuleTrace = "Unknown"){
    var ModuleName = 'JSMPF_CreateMosaic';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    var ImageArrayCellNumberMax;
    
    JSTPF_Alert( "JSMPF_CreateMosaic" + " started");
    
    try {

        // Number of the visible images; number of the cell; Array index starts with 0
        var ImageArrayCellNumber = -1;
        
        var CellWidthMax = 300;
        var CellHeightMax = 300;
        var WindowWidthPercentage = 1;
        var WindowHeightPercentage = 1;
    
        // Get list with images
        JSMPF_GetListWithImageFiles( ModuleTrace);
    
        var TableElement = document.getElementById(TableId);
        var ArrayNumberMax = JSMPF_CalculateTableCellNumberMax(CellWidthMax, CellHeightMax, WindowWidthPercentage, WindowHeightPercentage, TemplateNeeded, ModuleTrace);
        var ColumnNumberMax = ArrayNumberMax.ColumnNumberMax;
        var RowNumberMax = ArrayNumberMax.RowNumberMax;
    
        var QueryString = '';
        var RowNumber, ColumnNumber;
        for (RowNumber = 1; RowNumber <= RowNumberMax; RowNumber++){
            for (ColumnNumber = 1; ColumnNumber <= ColumnNumberMax; ColumnNumber++){
                // Number of the visible image; number of the cell; Array index starts with 0
                ImageArrayCellNumber += 1;
                QueryString = AddMosaicCell(PrefixCellId, QueryString, ImageArrayCellNumber);
                QueryString = AddMosaicCellContent(QueryString);
            }
        }
        ImageArrayCellNumberMax = ImageArrayCellNumber;
        
        // Refresh page with RowNumberMax, ColumnNumberMax, ImageFileShowArray[*]['ImageFile']
        var CurrentHREF = window.location.href;
        var NextHREF = CurrentHREF.replace('MosaicPage.php', 'MosaicPage2.php'); // Create 2nd url including the same query-string
        // Check if there is already a query string
        if (NextHREF.indexOf("?") >=0){
            // There is already a query string, add '&'
            NextHREF = NextHREF + '&';
        } else {
            // No query string, add '?'
            NextHREF = NextHREF + '?';
        }
        // Add parameters
        NextHREF = NextHREF + 'RowNumberMax=' + RowNumberMax;
        NextHREF = NextHREF + '&' + 'ColumnNumberMax=' + ColumnNumberMax;
        NextHREF = NextHREF + '&' + 'PrefixCellId=' + PrefixCellId;
        NextHREF = NextHREF + QueryString;
    
        window.open(
            NextHREF,
            '_self');
            
    } catch( JSError){
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    
//---------------------------------------------------------------------------
    function JSMPF_CalculateTableCellNumberMax(CellWidthMax, CellHeightMax, WindowWidthPercentage, WindowHeightPercentage, TemplateNeeded, ModuleTrace = "Unknown"){
        var ModuleName = 'JSMPF_CalculateTableCellNumberMax';
        ModuleTrace = ModuleTrace + " & " + ModuleName;

        var ColumnNumberMax;
        var RowNumberMax;
        
        try {
            
            var WindowWidth = window.innerWidth * WindowWidthPercentage;
            var WindowHeight = window.innerHeight * WindowHeightPercentage;
            
            if (typeof TemplateNeeded === 'undefined'){
                TemplateNeeded = true;
            }
            if (TemplateNeeded === true){
                // To be replaced by the use of margins (top, right, bottom, left)
                WindowWidth = WindowWidth * 0.7;
                WindowHeight = WindowHeight - 350;
            }
    
            ColumnNumberMax = Math.floor(WindowWidth / CellWidthMax);
            if (ColumnNumberMax <= 1){
                ColumnNumberMax = 1;
            }
            
            RowNumberMax = Math.floor(WindowHeight / CellWidthMax);
            if (RowNumberMax <= 1){
                RowNumberMax = 1;
            }
            
        } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        }
        
        return {
            ColumnNumberMax : ColumnNumberMax,
            RowNumberMax : RowNumberMax
        };
    }
//---------------------------------------------------------------------------

    function AddMosaicCell( PrefixCellId, QueryString, ImageArrayCellNumber, ModuleTrace = "Unknown"){
        var ModuleName = 'AddMosaicCell';
        ModuleTrace = ModuleTrace + " & " + ModuleName;
        
        var ReturnMessage;
        ReturnMessage = "";
        
        try {
            var TDElementId = PrefixCellId + ImageArrayCellNumber;
            ReturnMessage = QueryString + "&" + TDElementId + "=";
            
        } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        }
        
        return ReturnMessage;
    }
    
//---------------------------------------------------------------------------

    function AddMosaicCellContent(TDElementOrQueryString, ModuleTrace = "Unknown"){
        var ModuleName = 'AddMosaicCellContent';
        ModuleTrace = ModuleTrace + " & " + ModuleName;
        
        try {
            TDElementOrQueryString = TDElementOrQueryString + JSMPF_SelectRandomImageFile()['ImageFile'];
        } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        }
        
        return TDElementOrQueryString;
    }
}

//---------------------------------------------------------------------------

function JSMPF_ContinueMosaic(
            TableId,
            ThumbnailDirectory,
            HooverImageDirectory,
            ZoomImageDirectory,
            RowNumberMax,
            ColumnNumberMax,
            PrefixCellId,
            ModuleTrace = "Unknown"){
    var ModuleName = 'JSMPF_ContinueMosaic';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {

        DebugFlag = false;
        DebugWindow = null;
    
        // Get list with images
        JSMPF_GetListWithImageFiles( ModuleTrace);
    
        var TableElement = document.getElementById(TableId);
    
        var RowNumber, ColumnNumber;
        var ImageArrayCellNumber = -1;
        var TDElementId;
        var TDElement;
        var ImageFile;
        for (RowNumber = 1; RowNumber <= RowNumberMax; RowNumber++){
            for (ColumnNumber = 1; ColumnNumber <= ColumnNumberMax; ColumnNumber++){
                // Number of the visible image; number of the cell; Array index starts with 0
                ImageArrayCellNumber += 1;
                TDElementId = PrefixCellId + ImageArrayCellNumber + '_' + 'cell';
                TDElement = document.getElementById(TDElementId);
                if (typeof TDElement === 'undefined' || TDElement === null){
                    if (DebugWindow === null){
                        DebugWindow = window.open();
                    }
                    DebugWindow.document.write('ModuleName: ' + ModuleName + LineBreakHTML);
                    DebugWindow.document.write('TDElementId: ' + TDElementId + ': ' + 'No corresponding TDElement!' + LineBreakHTML);
                } else {
                    ImageFile = TDElement.getAttribute('data-imagefile');
                }
            }
        }
        ImageArrayCellNumberMax = ImageArrayCellNumber;
        // var ImageUpdateIntervalId is only needed as a return of 'setInterval'
        var ImageUpdateIntervalId = setInterval(JSMPF_RefreshMosaicPage, ImageUpdateIntervalSeconds);

    } catch( JSError){
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }


//---------------------------------------------------------------------------
// Function definition included in parent function is needed, otherwhise errors are generated:
// JSMPF_RefreshMosaicPage: ImageArrayCellNumberMax is not defined
// Issue: this function is asynchronuous called by the previous function 'JSMPF_ContinueMosaic' (setInterval(JSMPF_RefreshMosaicPage, ImageUpdateIntervalSeconds)),
// thus 'global' variable needed!

    function JSMPF_RefreshMosaicPage( ModuleTrace = "JSMPF_ContinueMosaic & setInterval & JSMPF_ContinueMosaic"){
        var ModuleName = 'JSMPF_RefreshMosaicPage';
        ModuleTrace = ModuleTrace + " & " + ModuleName;
        
        try {
        
            // Calc random ImageArrayCellNumber
            ModuleTrace = ModuleTrace + " & " + "Calc random ImageArrayCellNumber";
            // The first cell has number 0
            // The last cell has number ImageArrayCellNumberMax, retrieved from the previous function 
            if (typeof ImageArrayCellNumberMax === 'undefined'){
                ImageArrayCellNumber = 1;
            } else {
                if (ImageArrayCellNumberMax <= 1 ){
                    ImageArrayCellNumber = 1;
                } else {
                    ImageArrayCellNumber = Math.floor(Math.random() * (ImageArrayCellNumberMax + 1));
                    if (ImageArrayCellNumber >= ImageArrayCellNumberMax){
                        ImageArrayCellNumber = ImageArrayCellNumberMax;
                    }
                }
            }
            var TriggerElementId = PrefixCellId + ImageArrayCellNumber;
            TDElement = document.getElementById(TriggerElementId + '_' + 'cell');
            var CurrentImageRecord = JSGF_CopyAttributesFromElementToImageRecord(TDElement, ModuleTrace);
            var NextImageRecord = JSMPF_SelectRandomImageFile( ModuleTrace);
            
            // Adapt Image
            ModuleTrace = ModuleTrace + " & " + "Adapt Image";
            DebugFlag = false;
            if (DebugFlag){
                if (DebugWindow === null){
                    DebugWindow = window.open();
                }
                DebugWindow.document.write('ModuleName: ' + ModuleName + LineBreakHTML);
                DebugWindow.document.write('TriggerElementId: ' + TriggerElementId + LineBreakHTML);
                DebugWindow.document.write('NextImageRecord[ImageFile]: ' + NextImageRecord['ImageFile'] + LineBreakHTML);
                DebugWindow.document.write('CurrentImageRecord[ImageFile]: ' + CurrentImageRecord['ImageFile'] + LineBreakHTML);
            }
            DebugFlag = false;
            JSUIF_UpdateImageUsingImageRecords(TriggerElementId, NextImageRecord, CurrentImageRecord);
    
        } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        }
    }
}

//-----------------------------------------------------------------------------------

function JSMPF_GetListWithImageFiles( ModuleTrace = "Unknown"){
    var ModuleName = "JSMPF_GetListWithImageFiles";
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        var ImageFileArrayOriginal = document.getElementsByClassName('ImageFileList');
        var ItemNumber;
        ImageFileShowArraySizeMax = ImageFileArrayOriginal.length / 2;
    
        for (ItemNumber = 0; ItemNumber < ImageFileArrayOriginal.length; ItemNumber++){
            ImageFileArray.push( ImageFileArrayOriginal.item(ItemNumber));
        }
        
    } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
        
}

//-----------------------------------------------------------------------------------

function JSMPF_SelectRandomImageFile( ModuleTrace = "Unknown"){
    var ModuleName = 'JSMPF_SelectRandomImageFile';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    var ImageRecord;

    try {
        var ImageFileArraySize = ImageFileArray.length;
        var RandomNumber = Math.floor(Math.random() * ImageFileArraySize);
        // Store data in ImageRecord
        ImageRecord  = JSGF_CopyAttributesFromElementToImageRecord(ImageFileArray[RandomNumber], ModuleTrace);
        // Move Image to ImageFileShowArray
        if (ImageFileShowArray.length >= ImageFileShowArraySizeMax){
            // The oldest entry has to be moved on top of the ImageFileArray
            ImageFileArray.push(ImageFileShowArray.shift());
        }
        ImageFileShowArray.push(ImageFileArray[RandomNumber]);
        // Move image out of ImageFileArray
        ImageFileArray.splice(RandomNumber, 1);
    } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }        
    
    return ImageRecord;
}
    
//-----------------------------------------------------------------------------------

function JSMPF_EndHoover( ModuleTrace = "Unknown"){
    var ModuleName = 'JSMPF_EndHoover';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        // Adapt HooverImage to initial settings
        var HooverImageDiv = document.getElementById('HooverImageDiv');
        HooverImageDiv.style.opacity = 0;
        HooverImageDiv.style.zIndex = -10;
    } catch( JSError){
            JSError.message = ModuleName + ': ' + JSError.message;
            DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }

}
    
//-----------------------------------------------------------------------------------

function JSMPF_StartHoover(UserEvent, ImageFile, ThumbnailDirectory, HooverImageDirectory, ZoomImageDirectory, Language, ModuleTrace = "Unknown"){
    var ModuleName = 'JSMPF_StartHoover';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    // To be corrected
    var Language = 'en';
    DebugFlag = false;
    
    try {
        
        // The default action that belongs to the event is blocked to occur
        UserEvent.preventDefault(); 
        UserEvent = UserEvent || window.event;
        
        // Enable 'MouseLeave' on table
        
        var HooverImage = document.getElementById('HooverImage');
    
        var TriggerElement = UserEvent.currentTarget;
        var TriggerElementId = TriggerElement.id;
        
        if(DebugFlag){
            if (DebugWindow === null){
                DebugWindow = window.open(); 
            }
            DebugWindow.document.write('ModuleName; ' + ModuleName + LineBreakHTML);
            DebugWindow.document.write('ImageFile; ' + ImageFile + LineBreakHTML);
            DebugWindow.document.write('TriggerElementId: ' + TriggerElementId + LineBreakHTML);
            DebugWindow.document.write(LineBreakHTML);
        }

        // Get the parameters of the ImageShown, corresponds with TriggerElement
        //NOTNEEDED: var TriggerImageId = TriggerElementId.replace(PrefixCellId, PrefixImageId);
        //NOTNEEDED: var TriggerImage = document.getElementById(TriggerImageId);
    
    
        // Calculate position of HooverImage
        // - Calculate sizes (we suppose thet the HooverImageRectangle is already updated)
        var OriginalmageWidth = TriggerElement.getAttribute('data-imagewidth');
        var OriginalImageHeight = TriggerElement.getAttribute('data-imageheight');
        // HooverImage in ResizedExtraDirectory: minimal size = 300px
        // Calculate the correct HooverImageWidth & HooverImageHeight
        var HooverImageDimensions = JSUIF_ResizeToExtra(OriginalmageWidth, OriginalImageHeight, 300, 300, ModuleTrace);
        var HooverImageWidth = HooverImageDimensions[0];
        var HooverImageHeight = HooverImageDimensions[1];
        // - Image is positioned in the 'td'-element / TriggerElement
        var TriggerElementRectangle = TriggerElement.getBoundingClientRect(); // Position compared to the window
        var TriggerElementLeft = TriggerElementRectangle.left + window.pageXOffset; // To correct fr scrolling
        var TriggerElementTop = TriggerElementRectangle.top + window.pageYOffset; // To correct for scrolling
        var TriggerElementWidth = TriggerElementRectangle.width;
        var TriggerElementHeight = TriggerElementRectangle.height;
        // - Calculate positions
        var HooverImageLeft = TriggerElementLeft - (HooverImageWidth - TriggerElementWidth) / 2;
        var HooverImageTop = TriggerElementTop - (HooverImageHeight - TriggerElementHeight) / 2;
        // - Convert to strings in 'px' units
        var HooverImageLeftString = HooverImageLeft + 'px';
        var HooverImageWidthString = HooverImageWidth + 'px';
        var HooverImageTopString = HooverImageTop + 'px';
        var HooverImageHeightString = HooverImageHeight + 'px';
        
        // Change Image in HooverImage and make it visible on top of the screen
        // - Adapt HooverImage position and size
        HooverImage.style.left = HooverImageLeftString;
        HooverImage.style.width = HooverImageWidthString;
        HooverImage.style.top = HooverImageTopString;
        HooverImage.style.height = HooverImageHeightString;
        HooverImage = JSUIF_CopyAttributesFromToElement(TriggerElement, HooverImage, ModuleTrace);
    
        // - Make it visible
        var HooverImageDiv = document.getElementById('HooverImageDiv');
        HooverImageDiv.style.opacity = 1;
        HooverImageDiv.style.zIndex = 20;
        HooverImage.src = HooverImageDirectory + ImageFile;
    
        // Correct href in HooverImageLink-element
        ImageFile = HooverImage.getAttribute('data-imagefile');
        var ImageType = HooverImage.getAttribute('data-imagetype');
        var KeyName = HooverImage.getAttribute('data-keyname');
        ImageType = ImageType.trim().toLowerCase();
        var href = '';
        if (ImageType == 'image'){
            href = 
                'ZoomImage.php' +
                    '?Language=' + Language +
                    '&TemplateNeeded=FALSE' +
                    '&ImageFile=' + ZoomImageDirectory + ImageFile;
        } else if (ImageType == 'portrait'){
            href = 'ArtistPage.php?' + 'KeyName=' + KeyName + '&BannerNeeded=FALSE&Language=' + Language;
        } else {
            
        }
        document.getElementById('HooverImageLink').href = href;
        
        if(DebugFlag){
            if (DebugWindow === null){
                DebugWindow = window.open(); 
            }
            DebugWindow.document.write('ModuleName: ' + ModuleName + LineBreakHTML);
            DebugWindow.document.write('ImageType: ' + ImageType + LineBreakHTML);
            DebugWindow.document.write('href: ' + href + LineBreakHTML);
            DebugWindow.document.write(LineBreakHTML);
        }
    
        // Set timer to remove the HooverImage
        // It works only when moving out of TableElement
        setTimeout(function(){JSMPF_EndHoover( ModuleTrace);}, RemoveHooverImageIntervalSeconds);
        
    } catch( JSError){
        JSError.message = ModuleName + ': ' + JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
    
    DebugFlag = false;
    
}</script>
    <script>

// URL parameters
// NEEDED: the PHP-variable can be copied to JS-variable
//---------------------------------------------------------------------------
        
        var ArtworkTitle = '';
        var Email = '';
        var FirstName = '';
        var FullDescriptionNeeded = '';
        var FullName = '';
        var ImageType = '';
        var LastName = '';
        var KeyName = '';
        var Language = 'fr';
        var Selection = 'NewArtists';
        var Year = 'collection';
            
        function GetScreenWidth(){
          const element = document.getElementById("BodyId");
          let text = "clientHeight: " + element.clientHeight + "px<br>";
          text += "clientWidth: " + element.clientWidth + "px";
          alert(text);
        }
        function resizeListener() {
          GetScreenWidth();
        }
        // Only for testing: window.addEventListener("resize", resizeListener);
    
        window.onload = function( ){
            // Function not needed
            var ModuleName = 'window.onload';
            // Only for testing: GetScreenWidth();
        }

//---------------------------------------------------------------------------
// UserInterfaceFunction

        function JSCF_ShowVariable(ModuleName, VariableName, VariableValue, Debugwindow){
            if ( typeof DebugWindow === "undefined" || DebugWindow === null){
                DebugWindow = window.open();
            }
            DebugWindow.document.write( 'ModuleName: ' + ModuleName + LineBreakHTML);
            DebugWindow.document.write( 'VariableName: ' + VariableName + LineBreakHTML);
            // Works with all data types
            DebugWindow.document.write( 'VariableValue: ' + JSON.stringify(VariableValue) + LineBreakHTML);
            return DebugWindow;
        }

//---------------------------------------------------------------------------

    </script>

<!-- </head>-end tag can NOT be created in this include file, otherwhise application specific scripts or include-files can not be added -->
<!-- </head>  -->
<!-- ================================== -->
<!-- Include file 'Template.php' opened -->
<!-- ================================== -->


<!-- =============================================== -->
<!-- Include file 'TemplateMainMenuPopUp.php' opened -->
<!-- =============================================== -->

<script>
// When resizing to 'Minimal' then 'onmouseleave' ('JSTMF_ContentElementNormalSize()') doesn't work
var TemporaryBlockingHooverOutFlag = false;
var DebugWindow = null;

window.onerror = function (msg, url, line, Column, JSError) {
    var ModuleTrace = "NoTrace available";
    var ModuleName = "window.onerror";
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var Message = ModuleTrace + ": " + "Caught[via window.onerror]: '" + msg + "' from " + url + ":" + line;
    JSError.message = Message;
    console.log( Message);
    DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    return true;
};

//-----------------------------------------------------------------------

function MyErrorHandlerJS( JSError, DebugWindowLocal = null, ModuleTrace = "Unknown"){
    // DebugWindowLocal: not needed, is a global variable
    var ModuleName = "MyErrorHandlerJS";
    ModuleTrace =  ModuleTrace + " & " + ModuleName;
    
    var Message;
    var AlertOnlyFlag = false;

    Message =
        "Javascript Error:\n" +
            "-> Name: <" + JSError.name + ">;\n" +
            "-> Message: <" + JSError.message + ">;\n" +
            "-> ModuleTrace: <" + ModuleTrace + ">\n" +
            "\n";
    JSUIF_ShowMessage( ModuleName, Message, AlertOnlyFlag, ModuleTrace);
    
    return DebugWindow;
}

//---------------------------------------------------------------------------

function JSUIF_ShowMessage( ModuleName, Message, AlertOnlyFlag, ModuleTrace = "Unknown"){
    // var ModuleName already defined;
    // ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    var FullMessage =
            'ModuleName: ' + ModuleName + ': ' +
            'ModuleTrace: ' + ModuleTrace + ': ' +
            'Message: ' + Message;
    JSTPF_Alert( FullMessage);
    if (typeof AlertOnlyFlag === undefined || !AlertOnlyFlag){
        if ( DebugWindow === null){
            DebugWindow = window.open( ); 
        }
        DebugWindow.document.write( FullMessage);
        return DebugWindow;
    }
}

//-----------------------------------------------------------------------

function JSTMF_ContentElementMaximalSize( TriggerElementId, ModuleTrace = "Unknown") {
    var ModuleName = 'JSTMF_ContentElementMaximalSize';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    try {
        JSTMF_ContentElementChangeSize( TriggerElementId, 'none', 'auto', ModuleTrace);
        TemporaryBlockingHooverOutFlag = false;
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//-----------------------------------------------------------------------

function JSTMF_ContentElementNormalSize( TriggerElementId, ModuleTrace = "Unknown") {
    var ModuleName = 'JSTMF_ContentElementNormalSize';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        if (TemporaryBlockingHooverOutFlag === true){
            // No resizing
        } else {
            JSTMF_ContentElementChangeSize( TriggerElementId, '200px', 'scroll', ModuleTrace);
        }
        TemporaryBlockingHooverOutFlag = false;
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//-----------------------------------------------------------------------

function JSTMF_ContentElementMinimalSize( TriggerElementId, ModuleTrace = "Unknown") {
    var ModuleName = 'JSTMF_ContentElementMinimalSize';
    ModuleTrace = ModuleTrace + " & " + ModuleName;
    
    // JSTPF_Alert('ModuleName' + ': ' + ModuleName + ': ' + 'TriggerElementId' + ': ' + TriggerElementId)

    try {
        JSTMF_ContentElementChangeSize( TriggerElementId, '100px', 'scroll', ModuleTrace);
        TemporaryBlockingHooverOutFlag = true;
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//-----------------------------------------------------------------------

function JSTMF_ContentElementChangeSize( TriggerElementId, MaxHeight, OverflowY, ModuleTrace = "Unknown") {
    var ModuleName = 'JSTMF_ContentElementChangeSize';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    try {
        if (MaxHeight.toLowerCase().trim() === 'auto'){
            // Height uses 'auto', MaxHeight uses 'none'
            MaxHeight = 'none';
        }
        var ContentElement = JSTMF_GetContentElement( TriggerElementId, ModuleTrace);
        if (ContentElement !== null){
            ContentElement.style.maxHeight = MaxHeight;
            ContentElement.style.overflowY = OverflowY;
        }
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
    }
}

//-----------------------------------------------------------------------

function JSTMF_GetContentElement( TriggerElementId, ModuleTrace = "Unknown") {
    var ModuleName = 'JSTMF_GetContentElement';
    ModuleTrace = ModuleTrace + " & " + ModuleName;

    var ContentElement = null;
    try {
        var TopElementId = TriggerElementId;
        var ContentElementId = TopElementId + '_content';
        ContentElement = document.getElementById( ContentElementId);
        // JSTPF_Alert(ModuleName + ': ' + 'TopElementId' + ': ' + TopElementId + ': ' + 'TriggerElementId' + ': ' + TriggerElementId + ': ' + 'ContentElementId' + ': ' + ContentElementId)
    } catch( JSError) {
        JSError.message =
            'ModuleName: ' + ModuleName + ': ' +
            JSError.message;
        DebugWindow = MyErrorHandlerJS( JSError, DebugWindow, ModuleTrace);
        ContentElement = null;
    }
    
    return ContentElement;
}

//-----------------------------------------------------------------------

</script>

<!-- ======================================== -->
<!-- Include file 'IndexFunctions.php' opened -->
<!-- ======================================== -->


<!-- =========================================== -->
<!-- Include file 'PoemPageFunctions.php' opened -->
<!-- =========================================== -->


<!-- ======================================= -->
<!-- Include file 'PoemFunctions.php' opened -->
<!-- ======================================= -->


<!-- ICL_PHPUIF_GetPageTitle -->

<!-- PoemPageTitle -->

                <meta
                    name = "description"
                    content = ""
                >
            
            <!-- Google tag (gtag.js) - Google Analytics -->
            <script async src='https://www.googletagmanager.com/gtag/js?id=UA-83919159-2'>
            </script>
            <script>
              window.dataLayer = window.dataLayer || [];
              function gtag(){dataLayer.push(arguments);}
              gtag('js', new Date());
            
              gtag('config', 'UA-83919159-2');
            </script>
            <meta name='google-site-verification' content='ZPaZpHoxifuWLiax0428luC0ho--1lyLk2cy66CSRNo' />
            </head>
             <body lang="fr"  onerror = "MyErrorHandlerJS( error)" style = "background-image: url('OtherPictures/Himmelrom_1600x0900_opacity50.jpg')" id = 'BodyId'  >

                <div id="fb-root"></div>
                <script async defer crossorigin="anonymous" src="https://connect.facebook.net/en_GB/sdk.js#xfbml=1&version=v13.0" nonce="S7L7TAbl"></script>
                    <!== AccessKey alt+b for buy ==>
        <a
            target="_blank"
            href =
                "WIP_CreateBuyList.php?QRCodeNeeded=true&PictureNeeded=true&KeyName=                    "
            accesskey="b">
        </a>
        <!== AccessKey alt+p for marketing flyer artist (print version) ==>
        <a
            target="_blank"
            href =
                "CreateArtistPromotionPagePrint.php?KeyName=                    "
            accesskey="p">
        </a>
        <!== AccessKey alt+p for marketing flyer artist (web version) ==>
        <a
            target="_blank"
            href =
                "CreateArtistPromotionPageWeb.php?KeyName=                    "
            accesskey="w">
        </a>

          <table lang="fr"  id = 'MainContainer' style= ' width: 100%;  ' >

                    <tr style = 'width: 100%; '>
                        <td></td>
                    </tr>
                <tr style = 'width: 100%; '>               <td lang="fr"  style=" background-color: rgba(0,0,0,0.25); " >
                    <div lang="fr"  style="
                                color:white;
                                background-color: rgba(0,0,0,0.25);
                                font-size:100%;
                                font-weight:900;
                                text-align: center;
                            " " >
                         <a lang="fr"  href="https://www.google.be/maps/dir/Art+Sanctuary,+Rue+du+Tilleul+22,+1370+Jodoigne" target="_blank" style=" display:inline; color:white; font-weight:normal; " >
                              <img lang="fr"  src="Icons/LocationIconSmall.png" alt="Rue du Tilleul 22, 1370 Jodoigne, Belgium" style=" width:20px; height:20px; display:inline; " >
                              <p lang="fr"  style=" display:inline; " >Rue du Tilleul 22, 1370 Jodoigne, Belgium </p>
                         </a>
&nbsp; &nbsp;                         <a lang="fr"  href = 'tel:+32493628540'  target="_blank" style=" display:inline; " >
                              <img lang="fr"  src = "Icons/PhoneIconSmall.png" alt = "Phone +32 (0) 493 628 540"  style=" width:20px; height:20px; display:inline; " >
                              <p lang="fr"  style=" display:inline; color:white; font-weight:normal; " >Phone: +32 (0) 493 628 540  </p>
                         </a>
&nbsp; &nbsp;                         <a lang="fr"  href="mailto:artsanctuary@live.com;info@ignace-clarysse.com" target="_blank" style=" display:inline; " >
                              <img lang="fr"  src="Icons/MailIconSmall.png" alt="mailto:artsanctuary@live.com;info@ignace-clarysse.com" style=" width:20px; height:20px; display:inline; " >
                              <p lang="fr"  style=" display:inline; color:white; font-weight:normal; " >Email: artsanctuary@live.com;info@ignace-clarysse.com </p>
                         </a>
&nbsp; <br><a
                href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&PoetPoemKeyName=steven+van+der+heyden_vuur&Language=fr'
                style =
                    'color: white;
                    font-weight: normal; '>
                <img
                    src = 'Icons/FrenchFlag.png' alt = 'Français' style = 'display:inline; height: 16px; width: auto; '>Français</a> <a
                href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&PoetPoemKeyName=steven+van+der+heyden_vuur&Language=nl'
                style =
                    'color: white;
                    font-weight: normal; '>
                <img
                    src = 'Icons/NetherlandsFlag.png' alt = 'Nederlands' style = 'display:inline; height: 16px; width: auto; '>Nederlands</a> <a
                href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&PoetPoemKeyName=steven+van+der+heyden_vuur&Language=en'
                style =
                    'color: white;
                    font-weight: normal; '>
                <img
                    src = 'Icons/UKFlag.png' alt = 'English' style = 'display:inline; height: 16px; width: auto; '>English</a>                     </div>
               </td>
</tr>               <tr lang="fr"  style=" width: 100%; " >
                    <td lang="fr"  class = "InPageMenuClass" id="AnchorTopOfPage" style=" vertical-align: top;  " >

            <p
                id = 'PHPPF_PoemHeaderRowInput'
                name = 'PHPPF_PoemHeaderRowInput'>
            </p>
        
<!-- OrderLanguageArray: 'Array
(
    [fr] => FIELD ( Language, 'fr', 'nl', 'en', 'de') LIMIT 1
    [nl] => FIELD ( Language, 'nl', 'fr', 'en', 'de') LIMIT 1
    [en] => FIELD ( Language, 'en', 'fr', 'nl', 'de') LIMIT 1
    [de] => FIELD ( Language, 'de', 'en', 'nl', 'fr') LIMIT 1
    [LanguageUnknown] => FIELD ( Language, 'fr', 'nl', 'en', 'de') LIMIT 1
)
' -->

<!-- Language: 'fr' -->

<!-- SQL01: '
            SELECT *
            FROM Poems
            WHERE Poems.PoetPoemKeyName = 'steven van der heyden_vuur'
            ORDER BY FIELD ( Language, 'fr', 'nl', 'en', 'de') LIMIT 1
        ' -->
                         <div lang="fr"  style="line-height:50%;" >
                              <br lang="fr"  >
                         </div>
Artist "steven van der heyden" does not exist!                         <br lang="fr"  >

            <table>
<!-- PHPPF_PoemHeaderRow STARTED -->

<!--PoetPoemKeyNameURI was NOT mentionned-->

            <tr>
                <td style = 'text-align: center; border: 1px solid darkblue; padding: 10px; '
                    colspan = 2>

                    <table style = 'margin: auto; '>
                        <tr>
                            <td style = 'text-align:left; vertical-align:middle; float: left; border: none;' >
                                <h1>
                                    <a
                                        href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=olavhauge_cestlereve'
                                        target = 'TOP'
                                        style = 'font-size: 200%;'>
                                        &nbsp;&laquo;&nbsp;
                                    </a>
                                </h1>
                            </td>
                            <td style = 'text-align:center; vertical-align:middle; float: center; border: none;' >
                                <h1> 'Vuur'
                                </h1>
                                <form
                                    action = '#PHPPF_PoemHeaderRowInput';
                                    method = 'post'>
                                    <label for 'PoetPoemKeyNameInput'>
                                        Select:
                                    </label>
                                    <select
                                        type='text'
                                        id = 'PoetPoemKeyNameInput'
                                        name = 'PoetPoemKeyNameInput'
                                        required>
                    <option
                        value = 'toneaanderaa_forvandling' >Tone Aanderaa 'Transformation (N: Forvandling)'
                    </option>
                
                                    </select>
                                    <input
                                        type='submit'
                                        value='Submit'>
                                </form>
                            </td>
                            <td style = 'text-align:right; vertical-align:middle; float: right; border: none;' >
                                <h1>
                                    <a
                                        href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=toneaanderaa_forvandling'
                                        target = 'TOP'
                                        style = 'font-size: 200%;'>
                                        &nbsp;&raquo&nbsp;
                                    </a>
                                </h1>
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
        
<!-- PoemFileHTML: 'Artists/Images/leen%20kessels_image_vurige.jpg'-->

<!-- ZoomHREF: 'ZoomImage.php?ImageFile=Artists/Images/leen%20kessels_image_vurige.jpg&Language=&TemplateNeeded=TRUE&BannerNeeded=FALSE'-->

<!-- AString: '
            <a
                href = 'ZoomImage.php?ImageFile=Artists/Images/leen%20kessels_image_vurige.jpg&Language=&TemplateNeeded=TRUE&BannerNeeded=FALSE' .
                target = BLANK
            >
        '-->

<!-- ModuleTrace: 'START &  - collection - fr & PoemPage_CreateMainContainer & ShowSculptureAndPoem & PHPDBF_FormatPoemTextExtended' -->

<!-- Poem: 'Array
(
    [PoetPoemKeyName] => steven van der heyden_vuur
    [KeyName] => steven van der heyden
    [PoemKeyName] => vuur
    [PoemTitle] => Vuur
    [Language] => nl
    [LanguageIsOriginal] => 1
    [KeySentence] => Met as lieten we krassen na
    [PoemText] => We wreven het stof uit onze ogen,
leerden het vuur stelen. In puntige vlammen
hoorden we het gebrul en gesis van draken.

Boven geblakerde grond trok rook op.
Met as lieten we krassen na,
de eerste inkt die getuigde.

Wat van het sprokkelhout restte,
een smeulend vuur gevoed met vonken
van steen op steen.
    [PoemTextStyle] => font-size: 42px; line-height: 2.0; 
    [ImageFile] => leen kessels_image_vurige.jpg
    [ArtistKeyName] => leen kessels
    [PublishDate] => 2023-04-21
    [MediaTitle] => 
    [MediaFile] => 
    [Remark] => 
    [QualityRemark] => Medium 5+
Karel Sergen
    [QualityNumber] => 5
    [InGardenPriority] => 0
    [InGarden] => 1
    [InGardenOld] => 1
    [InPoemBookPriority] => 0
    [InPoemBook] => 0
    [InPoemBookOld] => 0
    [LastUpdate] => 2023-05-17 09:59:22
)
' -->

                <tr>
                    <td style = 'max-width: 300px; border: 1px solid darkblue; padding: 10px; '>
                        
            <a
                href = 'ZoomImage.php?ImageFile=Artists/Images/leen%20kessels_image_vurige.jpg&Language=&TemplateNeeded=TRUE&BannerNeeded=FALSE' .
                target = BLANK
            >
        
                            <img
                                style = 'max-width: 300px; '
                                src = 'Artists/Images/leen kessels_image_vurige.jpg'
                                alt = 'steven van der heyden_vuur'
                            >
                        </a>
                    </td>
                    <td style = 'min-width: 300px; border: 1px solid darkblue; padding: 10px; '>
                        
            <p style=text-align:centre; '><em>
                Vuur
            </em></p>
            <br>
        <P style = 'line-height: 1.5; '><SPAN style = 'padding: 20px; line-height: 1; '>We wreven het stof uit onze ogen,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
leerden het vuur stelen. In puntige vlammen</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
hoorden we het gebrul en gesis van draken.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Boven geblakerde grond trok rook op.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Met as lieten we krassen na,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
de eerste inkt die getuigde.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Wat van het sprokkelhout restte,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
een smeulend vuur gevoed met vonken</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
van steen op steen.</SPAN><BR></p>
            <br>
            <p style=text-align:left; '><em>
                 &copy; 2023-04-21
            </em></p>
        
                    </td>
                </tr>
        
<!-- PHPPF_PoemHeaderRow STARTED -->

<!--PoetPoemKeyNameURI was NOT mentionned-->

            <tr>
                <td style = 'text-align: center; border: 1px solid darkblue; padding: 10px; '
                    colspan = 2>

                    <table style = 'margin: auto; '>
                        <tr>
                            <td style = 'text-align:left; vertical-align:middle; float: left; border: none;' >
                                <h1>
                                    <a
                                        href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=olavhauge_cestlereve'
                                        target = 'TOP'
                                        style = 'font-size: 200%;'>
                                        &nbsp;&laquo;&nbsp;
                                    </a>
                                </h1>
                            </td>
                            <td style = 'text-align:center; vertical-align:middle; float: center; border: none;' >
                                <h1> 'Vuur'
                                </h1>
                                <form
                                    action = '#PHPPF_PoemHeaderRowInput';
                                    method = 'post'>
                                    <label for 'PoetPoemKeyNameInput'>
                                        Select:
                                    </label>
                                    <select
                                        type='text'
                                        id = 'PoetPoemKeyNameInput'
                                        name = 'PoetPoemKeyNameInput'
                                        required>
                    <option
                        value = 'toneaanderaa_forvandling' >Tone Aanderaa 'Transformation (N: Forvandling)'
                    </option>
                
                                    </select>
                                    <input
                                        type='submit'
                                        value='Submit'>
                                </form>
                            </td>
                            <td style = 'text-align:right; vertical-align:middle; float: right; border: none;' >
                                <h1>
                                    <a
                                        href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=toneaanderaa_forvandling'
                                        target = 'TOP'
                                        style = 'font-size: 200%;'>
                                        &nbsp;&raquo&nbsp;
                                    </a>
                                </h1>
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
        
                <tr>
                    <td style = 'max-width: 300px; border: 1px solid darkblue; padding: 10px; '>
                        <h2>Artwork information</h2>
                    </td>
                    <td style = 'min-width: 300px; border: 1px solid darkblue; padding: 10px; '>
                        <h2>Poet information</h2>
                    </td>
                </tr>
                <tr>
                    <td style = 'max-width: 300px; padding: 5px 0px; margin: 0px; vertical-align: top; border: 1px solid darkblue; padding: 10px; ' >
        <div>
            <table>
                <tr>
                    <td >Nom
                    </td>
                    <td>
                    </td>
                </tr>
                <tr>
                    <td>Titre de l'&oelig;uvre
                    </td>
                    <td>
                    </td>
                </tr>
                <tr>
                    <td>Prix catalogue
                    </td>
                    <td>---
                    </td>
                </tr>
                <tr>
                    <td>Autres informations<br>Invité par
                </td>
                <td>
                </td>
            </tr>
<!-- SculptureFile: '' -->

<!-- MainImageFile: 'leen kessels_image_vurige.jpg' -->

<!-- ModuleTrace: 'START &  - collection - fr & PoemPage_CreateMainContainer & PHPDBFA_ShowArtworkInformation & PHPDBF_GetArtworkPoems & PHPDBF_FormatPoemTextExtended' -->

<!-- Poem: 'Array
(
    [PoetPoemKeyName] => steven van der heyden_vuur
    [KeyName] => steven van der heyden
    [PoemKeyName] => vuur
    [PoemTitle] => Vuur
    [Language] => nl
    [LanguageIsOriginal] => 1
    [KeySentence] => Met as lieten we krassen na
    [PoemText] => We wreven het stof uit onze ogen,
leerden het vuur stelen. In puntige vlammen
hoorden we het gebrul en gesis van draken.

Boven geblakerde grond trok rook op.
Met as lieten we krassen na,
de eerste inkt die getuigde.

Wat van het sprokkelhout restte,
een smeulend vuur gevoed met vonken
van steen op steen.
    [PoemTextStyle] => font-size: 42px; line-height: 2.0; 
    [ImageFile] => leen kessels_image_vurige.jpg
    [ArtistKeyName] => leen kessels
    [PublishDate] => 2023-04-21
    [MediaTitle] => 
    [MediaFile] => 
    [Remark] => 
    [QualityRemark] => Medium 5+
Karel Sergen
    [QualityNumber] => 5
    [InGardenPriority] => 0
    [InGarden] => 1
    [InGardenOld] => 1
    [InPoemBookPriority] => 0
    [InPoemBook] => 0
    [InPoemBookOld] => 0
    [LastUpdate] => 2023-05-17 09:59:22
)
' -->

<!-- SculptureFile: '' -->

<!-- MainImageFile: 'leen kessels_image_vurige.jpg' -->
<tr>
                <td>Poèmes
                </td>
                <td>
                    
            <p style=text-align:centre; '><em>
                Vuur
            </em></p>
            <br>
        <P style = 'line-height: 1.5; '><SPAN style = 'padding: 20px; line-height: 1; '>We wreven het stof uit onze ogen,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
leerden het vuur stelen. In puntige vlammen</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
hoorden we het gebrul en gesis van draken.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Boven geblakerde grond trok rook op.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Met as lieten we krassen na,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
de eerste inkt die getuigde.</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
Wat van het sprokkelhout restte,</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
een smeulend vuur gevoed met vonken</SPAN><BR><SPAN style = 'padding: 20px; line-height: 1; '>
van steen op steen.</SPAN><BR></p>
            <br>
            <p style=text-align:left; '><em>
                 &copy; 2023-04-21
            </em></p>
        
                </td>
            </tr>
<!-- SculptureFile: '' -->

<!-- MainImageFile: 'leen kessels_image_vurige.jpg' -->

<!-- ImageFile: 'leen kessels_image_vurige.jpg' -->

<!-- Email: '' -->

<!-- SQL: '
            SELECT count( Email) AS EmailCount
            FROM MailList
            WHERE Email = ''
        ' -->

<!-- EmailExist: '' -->

            <tr>
                <td>
                    Tags
                </td>
                <td>
                    <em>C - Pays</em>: Nederland<br><em>D1 - Type de mati&egrave;re</em>: Pierre<br><em>Style</em>: Abstract, Decorative, Grand (>1,5m)<br><em>Type d'oeuvre</em>: Sculpture<br><em>Z - Autre</em>: Nouveau en 2023, P&eacute;riode 1 (09/06-02/07/2023), P&eacute;riode 2 (07/07-06/08/2023), P&eacute;riode 3 (11/08-10/09/2023)
                </td>
            </tr>
        </table>
    </div>                
    
                    </td>
                    <td style = 'min-width: 300px; vertical-align: top; border: 1px solid darkblue; padding: 10px; >
                        <h3></h3>
                        <p style = 'Text-align: center; '> - </p>
                        <p style = 'Text-align: center; '><b><i></i></b></p>
                        <br>
                        <p></p>
                    </td>
                </tr>
        
<!-- PHPPF_PoemHeaderRowNEW STARTED -->

<!--CurrentURI: '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur'-->

<!--PoetPoemKeyName: 'steven van der heyden_vuur'-->

<!--PoetPoemKeyNameURI: 'steven%20van%20der%20heyden_vuur'-->

<!--PoetPoemKeyNameURI was NOT mentionned-->

<!--CurrentURI: '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur'-->

<!--PoetPoemKeyName: 'steven van der heyden_vuur'-->

<!--PoetPoemKeyNameURI: 'steven%20van%20der%20heyden_vuur'-->

<!--PoetPoemKeyNameURI was NOT mentionned-->

                <tr>
                    <td style = 'text-align: center; border: 1px solid darkblue; padding: 10px; '
                        colspan = 2>
                        <table style = 'margin: auto; '>
                            <tr>
                                <td style = 'text-align:left; vertical-align:middle; float: left; border: none;' >
                                    <h1>
                                        <a
                                            href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=olavhauge_cestlereve'
                                            target = 'TOP'
                                            style = 'font-size: 200%;'>
                                            &nbsp;&laquo;&nbsp;
                                        </a>
                                    </h1>
                                </td>
                                <td style = 'text-align:center; vertical-align:middle; float: center; border: none;' >
                                    <h1>Poème :  'Vuur'
                                    </h1>
                                </td>
                                <td style = 'text-align:right; vertical-align:middle; float: right; border: none;' >
                                    <h1>
                                        <a
                                            href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=toneaanderaa_forvandling'
                                            target = 'TOP'
                                            style = 'font-size: 200%;'>
                                            &nbsp;&raquo&nbsp;
                                        </a>
                                    </h1>
                                </td>
                            </tr>
            
                            <tr>
                                <td style = 'text-align:left; vertical-align:middle; float: left; border: none;' >
                                    <h1>
                                        <a
                                            href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=jean-jacques richard_embarque-moi'
                                            target = 'TOP'
                                            style = 'font-size: 200%;'>
                                            &nbsp;&laquo;&nbsp;
                                        </a>
                                    </h1>
                                </td>
                                <td style = 'text-align:center; vertical-align:middle; float: center; border: none;' >
                                    <h1>Oeuvre:  ''
                                    </h1>
                                </td>
                                <td style = 'text-align:right; vertical-align:middle; float: right; border: none;' >
                                    <h1>
                                        <a
                                            href = '/Collection/PoemPage.php?BannerNeeded=false++++++++++++++++&Language=fr&PoetPoemKeyName=steven+van+der+heyden_vuur&PoetPoemKeyName=jean-jacques richard_l echasseur'
                                            target = 'TOP'
                                            style = 'font-size: 200%;'>
                                            &nbsp;&raquo&nbsp;
                                        </a>
                                    </h1>
                                </td>
                            </tr>
                        </table>
                    </td>
                </tr>
            
                <tr>
                    <td style = 'text-align:center;' colspan = 2>
                        <p>© Les droits d'auteur restent la propriété pleine et entière de l'auteur du poème<br>
                        ('Livre XI - Code de droit économique (textes coordonnés - Justel)').</p>
                        <p>© De volledige auteursrechten blijven volledig eigendom van de auteur van het gedicht<br>
                        (volgens titel 5 van boek XI van het wetboek economisch recht).<p>
                        <p>© Full copyright remains the full property of the author of the poem.</p>
                    </td>
                </td>
            </table>
                                 <p lang="fr"  class = "InPageMenuClass" id="AnchorBottomOfPage" ></p>
                    </td>
               </tr>
          </table>
          <div lang="fr"  style = '
        position: fixed;
        top: 10px;
        left: 10px;
        padding: 5px;
        font-size: 24px;
        background-color: LightBlue; 
                height: 80px; '  >
               <a lang="fr"  href = 'index.php?Language=fr' target = '_TOP' style = 'display: inline-block; vertical-align: middle;'  >
                    <img lang="fr"  src = 'Icons/HomeIcon.jpg' width = auto height = 80 alt = 'Home'  >
               </a>
               <div lang="fr"  style = 'display: inline-block; vertical-align: middle;text-align: center; ' >
                    <button lang="fr"  type="button" onclick="window.location.href = '#AnchorTopOfPage';" 
        style = '
            color: white;
            font-size: 48px;
            font-weight: 900;
            display: inline-block;
        '
     >&#65085; </button>
               </div>
               <div lang="fr"  style = '
                cursor: pointer;
                display: inline-block;' onclick = 'ShowMainMenuPopUpFunction()'  >
            <div  style = 'display: inline-block; vertical-align: middle;'>
                <img
                    src = 'https://toppng.com/uploads/preview/menu-icon-png-3-lines-11552739298tzauhvnjiw.png'
                    alt = 'MainMenuPopUp'
                    style = 'width: 40px; height: 40px; padding:5px; display: inline-block; vertical-align: middle;'>
                <b><i>
<p style = 'display: inline-block; vertical-align: middle;'>Menu</p>                </i></b>
            </div>    

               </div>
               <div lang="fr"  style = 'display: inline-block; vertical-align: middle;text-align: center; ' >
                    <button lang="fr"  type="button" onclick="window.location.href = '#AnchorBottomOfPage';" 
        style = '
            color: white;
            font-size: 48px;
            font-weight: 900;
            display: inline-block;
        '
     >&#65086; </button>
               </div>
          </div>
          <div lang="fr"  style = '
            display: none;
            width: 300px;
            height: 80%;
            background-color: LightBlue;
            color: Black;
            text-align: center;
            margin-left: 0px;
            overflow-y: scroll;
            padding: 10px;
            position: fixed;
            z-index: 99; 
                top: 120px;
                left: 10px; ' id = 'MainMenuPopUpId' onclick = 'ShowMainMenuPopUpFunction()'  >

<!-- MainMenuPopUpId -->
               <a lang="fr"  href = 'index.php?Language=fr' target = '_TOP' style = 'display: inline-block; vertical-align: middle;'  >
                    <img lang="fr"  src = 'Icons/HomeIcon.jpg' width = 100 height = auto alt = 'Home'  >
               </a>
               <br lang="fr"  >
               <a lang="fr"  href="CreateCatalogue.php?InputLanguage=fr&Year=collection&BannerNeeded=FALSE&TemplateNeeded=TRUE" target="_BLANK" style=" font-weight:bold; text-align:center; " >Tous les Artistes </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href="ConditionsPage.php?Language=fr&TemplateNeeded=TRUE&BannerNeeded=FALSE" target="_BLANK" style=" font-weight:bold; text-align:center; " >Achat, Paiement échelonné, Location </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <p lang="fr"  style = '
                font-weight: bold;
                text-align: center;
                border: 1px solid black;
            ' >Sélectionnez l'année d'exposition </p>
               <a lang="fr"  href="SelectYear2023.php?Language=fr&TemplateNeeded=TRUE&BannerNeeded=FALSE" target="_TOP" style=" font-weight:bold; text-align:center; " >Eté 2023 </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <p lang="fr"  style = '
                font-weight: bold;
                text-align: center;
                border: 1px solid black;
            ' >Médias sociaux </p>
            <a
                target="_blank"
                href="https://www.facebook.com/SanctuaryArt/reviews">
                Share your review on Facebook
            </a>
            <br>
            <a
                target="_blank"
                href="https://g.page/r/CVif5W-GggzSEB0/review"
            >
                Share your review on Google
            </a>
               <p lang="fr"  style = '
                font-weight: bold;
                text-align: center;
                border: 1px solid black;
            ' >Artistes de l'art verrier </p>

<!-- OpenDatabase: 'START'-->
               <a lang="fr"  href='ArtistPage.php?KeyName=danny%20beinsberger&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Danny Beinsberger </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=irene%20van%20der%20does%20de%20bye&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Irene van der Does de Bye </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=jean-francois%20constant&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Jean-Fran&ccedil;ois Constant </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=marc%20hadermann&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Marc Hadermann </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <p lang="fr"  style = '
                font-weight: bold;
                text-align: center;
                border: 1px solid black;
            ' >Autres Artistes </p>

<!-- OpenDatabase: 'START'-->
               <a lang="fr"  href='ArtistPage.php?KeyName=ann%20geirnaerdt&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Ann Geirnaerdt </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=elya%20yalonetski&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Elya Yalonetski </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=guy%20deltour&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Guy Deltour </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=hermien%20buytendijk&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Hermien Buytendijk </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=jean-luc%20absil&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Jean-Luc Absil </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=lebuin%20dhaese&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Lebu&iuml;n D'Haese </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=louis%202%20verdal&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Louis 2 Verdal </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=marianne%20ouwendijk&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Marianne Ouwendijk </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=marie%20thys&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Marie Thys </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=nele%20schildermans&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Nele Schildermans </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=philippe%20nicodeme&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Philippe Nicod&egrave;me </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=plaidsenshawls&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Plaids en Shawls </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=roland%20menten&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Roland Menten </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=roos%20mannaerts&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Roos Mannaerts </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=stanwood&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Stanwood Wind Sculptures </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=tone%20aanderaa&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Tone Aanderaa </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=will%20schropp&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Will Schropp </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=willy%20peeters&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Willy Peeters </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=woodstock%20chimes&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Woodstock chimes </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
               <a lang="fr"  href='ArtistPage.php?KeyName=xavier%20dumont&TemplateNeeded=1&BannerNeeded=FALSE&Language=fr' style=' color: blue; font-weight: bold; text-align: center;  ' >Xavier Dumont </a>
               <div lang="fr"  style="line-height:50%;" >
                    <br lang="fr"  >
               </div>
          </div>

    <!-- Script needed -->
    <script>
        // When the user clicks on div, open or close the popup
        function ShowMainMenuPopUpFunction() {
            var popup = document.getElementById( "MainMenuPopUpId");
            if ( popup.style.display == "none"){
                popup.style.display = "block";
            } else {
                popup.style.display = "none";
            }
        }
    </script>

     </body>
</html>