Dim MainNode, TestNode ' objects
' Set the MainNode to be the child of the provided node.
Set MainNode = Node.GetChildren
' Use recursion to step through each node in the form. This routine
' walks to the last node in each page, then traverses back up the tree,
' deleting nodes that are not in the XFDL namespace as it goes.
Do While (Not(MainNode Is Nothing))
Set TestNode = MainNode.getNext
Set MainNode = TestNode
' Check to see if the node passed to the routine is in the XFDL
' namespace. If not, delete the node.
If Node.isXFDL = False Then