function ArrayToXML ( $ar, $base='' )
        {
#-k     array   xml
#-      recursive converter
        
        if (strlen($base)) $xml = "<?xml version='1.0' ?><$base>";
                
        foreach ($ar as $k=>$v)
                {
                if (is_array($v))
                        {
                        $xml .= '<' . $k . '>';
                        $xml .= ArrayToXML ( $v );
                        $xml .= '</' . $k . '>';
                        }
                else
                        {
                        $xml .= '<' . $k . '>';
                        $xml .= $v;
                        $xml .= '</' . $k . '>';
                        }
                }

        if (strlen($base)) $xml .= '</' . $base . '>';
        return $xml;
        }

?>