//**************************************
    //     
    // Name: Display array contents
    // Description:This function recursively
    //     displays the contents of any single, mul
    //     ti- or mixed-dimensional array in tab-in
    //     dented format, where you may specify the
    //     tab character/string to use along with t
    //     he overall indentation, with defaults us
    //     ed if specification is missing.
    // By: Peter Kionga-Kamau
    //
    // Inputs:single/multi-dimensional array
    //     - the array you want to view
    (optional) string $tab | default = "    " - your custom indentation string
    (optional) int $indent | default = 0 - overall indentation
    //
    // Returns:html-formatted string (includ
    //     es <BR> tags)
    //
    // Assumes:This function is intended for
    //     debugging purposes. remember, you must u
    //     se "echo LIST_CONTENTS($array);" and not
    //     simply "LIST_CONTENTS($array);". This is
    //     a design feature - so that you can inspe
    //     ct arrays in one place and echo them lat
    //     er if required.
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=1184&lngWId;=8    //for details.    //**************************************
    //     
    
    function LIST_CONTENTS($arrayname,$tab="    ",$indent=0) 
    {// recursively displays contents of the array and sub-arrays: 
    // This function (c) Peter Kionga-Kamau 
    //     (http://www.pmkmedia.com) 
    // Free for unrestricted use, except sal
    //     e - do not resell. 
    // use: echo LIST_CONTENTS(array $arrayn
    //     ame[, string $tab, int $indent]); 
    // $tab = string to use as a tab, $inden
    //     t = number of tabs to indent result 
    while(list($key, $value) = each($arrayname)) 
    { 
    for($i=0; $i<$indent; $i++) $currenttab .= $tab; 
    if (is_array($value)) 
    { 
    $retval .= "$currenttab$key : Array: <BR>$currenttab{<BR>"; 
    $retval .= LIST_CONTENTS($value,$tab,$indent+1)."$currenttab}<BR>"; 
    } 
    else $retval .= "$currenttab$key => $value<BR>"; 
    $currenttab = NULL; 
    } 
    return $retval; 
    }