<%
PublicFunctionArrayToxml(DataArray,Recordset,row,xmlroot)
Dimi,node,rs,j
Ifxmlroot=""Thenxmlroot="xml"
SetArrayToxml=Server.CreateObject("msxml2.FreeThreadedDOMDocument"&MsxmlVersion)
ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot))
Ifrow=""Thenrow="row"
Fori=0ToUBound(DataArray,2)
SetNode=ArrayToxml.createNode(1,row,"")
j=0
ForEachrsinRecordset.Fields
node.Attributes.setNamedItem(ArrayToxml.createNode(2,LCase(rs.Name),"")).text=DataArray(j,i)&""
j=j+1
Next
ArrayToxml.documentElement.appendChild(Node)
Next
EndFunction
%>