xml to text file

[Andy6666uk]

I want to save an XML file made from a recordset.

The code below makes a text file but the format is anything but XML, it comes out looking like a mess.

Any ideas what I'm doing wrong?
<%
Set rsPerson = Server.CreateObject(&quot;ADODB.Recordset&quot
rsPerson.Open &quot;Person&quot;, db

Dim SourceFile, strSource
SourceFile = &quot;textfiles/text001.xml&quot;
strSource = Server.MapPath(SourceFile)

rsPerson.Save strSource, adPersistXML

rsPerson.Close
%>
thanks