<%

'Declare local variables.
Dim objXML, objRoot, objAttUser, objAttSize

'Connect DOM
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.preserveWhiteSpace = true

'CreateElemet Set
Set objRoot = objXML.createElement("item")
objXML.AppendChild objRoot

'Create Sub Node Group
Set objAttUser = objXML.createElement("user")
Set objAttSize = objXML.createElement("size")
    
objAttUser.text = "user"
objAttSize.text = "folder size"

objRoot.AppendChild objAttUser 'element.appendchild sub node
objRoot.AppendChild objAttSize
    
'Create PI
Set objPi = objXML.createProcessingInstruction("xml","version='1.0'")
objXML.insertBefore objPi, objXML.Childnodes(0)

'Save XML
objXML.Save "c:\test.xml"
    
    
If err.number <> 0 then
 Response.write("Errors occurred while saving your form submission.")
Else
 Response.write("Your form submission has been saved.")
End If

%>