ASP generates database data in XML format

<%
Set xmldoc = server. Createobject ("msxml2.domdocument ")
Set OBJ = server. Createobject ("gdcom. Database ")
Set rs = server. Createobject ("ADODB. recordset ")
Set FSO = Createobject ("scripting. FileSystemObject ")
Xmldoc. async = false
Xmldoc. validateonparse = false
STR = "Select Code, PYT, detail from zdb where kind = '92 '"
Set rs = obj. runsqlreturnrs (STR)
Set AddFile = FSO. createtextfile (server. mappath (".") & "/20060801.xml", true)
Set root = xmldoc. createnode (1, "book", "record ")
Set temp = xmldoc. appendchild (Root)
Set objnodeattr = xmldoc. createattribute ("ajbh ")
Objnodeattr. value = "a20000270006002004080001"
Xmldoc. documentelement. setattributenode (objnodeattr)

Set ajlx = xmldoc. createnode ("element", "Ma ","")
Set temp = root. appendchild (ajlx)

Set ajlb = xmldoc. createnode ("element", "La ","")
Set temp = ajlx. appendchild (ajlb)

If not Rs. EOF then
Rs. movefirst
While (not Rs. EOF)
Set onode = xmldoc. createnode ("element", "REC ","")
Set temp = ajlb. appendchild (onode)
 
For I = 0 to Rs. Fields. Count-1
Set child = xmldoc. createnode ("element", Rs. Fields (I). Name ,"")

If not isnull (Rs. Fields (I) then
Child. Text = Rs. Fields (I)
Else
Child. Text = ""
End if

Set temp = onode. appendchild (child)
Next

Rs. movenext
Wend
Rstoxml = root. xml
Else
Rstoxml = ""
End if
AddFile. writeline (rstoxml)
AddFile. Close
Set FSO = nothing
Response. Write ("OK! ")
%>