Writing subset of data to local XML file (sp1)

[RickH]

When my form is complete, I email it using a custom function. At the same
time, I want to append a subset of the data to a local XML file.
First part is easy:
Dim XMLFilePath As String = "C:\Program Files\InfoPath Form
Templates\Data.xml"
Dim xmldoc As New System.Xml.XmlDocument
Dim mainnode As Xml.XmlNode
Dim mainlist As System.Xml.XmlNodeList
xmldoc.load(XMLFilePath)

At this point, I am lost--no idea what I am doing---tried this next code,
which doesn't work..


mainlist = xmldoc.getElementsByTagName("FuelConsumption")
mainnode = mainlist.Item(0)
Dim docFrag As Xml.XmlDocumentFragment = xmldoc.CreateDocumentFragment()
docFrag.InnerXml.Concat(thisXDocument.DOM.selectSingleNode _
("/descendant::my:FacilityID") , _
thisXDocument.DOM.selectSingleNode _
("/descendant::myateFuelReceived") )
'shortened list....

mainnode.appendChild(docFrag)

Anyone have any ideas???