function rsToXML(rs)
    dim objXML
    
    if isObject(rs) then
        set objXML = CreateObject("MSXML2.DOMDocument")
	    rs.Save objXML,1
        rsToXML = objXML.xml
    else
        rsToXML = ""
    end if

end function
    
function xmlToRS(xml)
    dim rs
    dim objXML
    
    set rs = CreateObject("ADODB.Recordset")
    set objXML = CreateObject("MSXML2.DOMDocument")
    loaded = objXML.LoadXML(xml)
    if loaded then
        rs.Open(objXML)
        set xmlToRS = rs
    else
        set xmlToRS = Nothing
    end if

end function

function ArrayToXML(arr)
    if UBound(arr) <= 0 then
        arr(0) = arr(0) & "|&*&|"
        ArrayToXML = Join(arr)
    else
        ArrayToXML = Join(arr, "|&*&|")
    end if
end function