PublicFunctionArrayToxml(DataArray,Recordset,row,xmlroot)Dimi,node,rs,jIfxmlroot=''Thenxmlroot='xml'SetArrayToxml=Server…