<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)     Dim i, node, rs, j     If xmlroot = "" Then xmlroot = "xml"     Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)     ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot))     If row = "" Then row = "row"     For i = 0 To UBound(DataArray, 2)         Set Node = ArrayToxml.createNode(1, row, "")         j = 0         For Each rs in Recordset.Fields             node.Attributes.setNamedItem(ArrayToxml.createNode(2, LCase(rs.Name), "")).text = DataArray(j, i)& ""             j = j + 1         Next         ArrayToxml.documentElement.appendChild(Node)     Next End Function %>