help with XML

[MartinLiss]

The code you show can't be your actual code. Can you show the actual code please?

[daveOliver]

here you go:

Dim xmlDocIssueNumber As DOMDocument
Set xmlDocIssueNumber = New DOMDocument
xmlDocIssueNumber.preserveWhiteSpace = True
xmlDocIssueNumber.loadXML (cIssueNoXML)
xmlDocIssueNumber.Save ("C:\Documents and Settings\Simon Pogrebinsky\Desktop\xmlSave\issueNo.xml")
Set nodes = xmlDocIssueNumber.selectNodes("//NewDataSet/AUTONUMBTABLE/AUTOFLAG")



For i = 0 To nodes.Length - 1
If Not (nodes.NextNode.selectSingleNode("AUTOFLAG") Is Nothing) Then strFaultFlag = ((nodes.NextNode.selectSingleNode("AUTOFLAG").nodeTypedValue))

Next

MsgBox (strFaultFlag)