Asp Xml Iteration Problem **Resolved**

[rudvs2]

hello all,

Has anyone here tried parsing an xml document from an asp page before??

The code I have written doesnt have any "errors" persay it just doesnt execute correctly

this is all dummy code for testing so it looks nasty

The app has the following

Private Sub Command1_Click()
Dim xmld As MSXML2.DOMDocument30
Dim xmld2 As MSXML2.XMLHTTP30
Dim mynode
Dim myothernode
Dim rmDoc
Set xmld = New MSXML2.DOMDocument30
Set rmDoc = xmld.createElement("bob")
Set xmld.documentElement = rmDoc
Set mynode = xmld.createNode(NODE_ELEMENT, "Hungry", "")
Set myothernode = xmld.createNode(NODE_TEXT, "Food", "")
myothernode.Text = "Hamburgers yummy"
mynode.appendChild (myothernode)
Set xmld2 = New MSXML2.XMLHTTP30
xmld2.open "POST", "http://escs1/richmastery/secure/xml/put_order.asp?IDGRP=AKL&userCode=miketest&pwd=mik001p", False
xmld2.send xmld
Set strResponse = xmld2.responseXML
Text1.Text = ""
Text1.Text = Text1.Text & xmld2.responseText
Open "C:\Workshop\temp\t.htm" For Output As #1
Print #1, Text1.Text
Close #1
WebBrowser1.Navigate "C:\Workshop\temp\t.htm"
End Sub

then the asp page grabs it validates it and falls apart at this code here

Private function parse_xml 
Dim strField
Dim strValue
Dim isSuccess
Dim xNode 
dim oNode
set oNode = XMLdoc.documentElement
Response.Write ("<got here1>")
For Each xNode In oNode.childNodes 'this line is the line that it excutes but doesnt find any nodes so it skips to end of function
    
    'If xNode.nodeType = NODE_TEXT Then
        Response.Write ("<got here2>")
        strField = xNode.parentNode.nodeName
        
        'If Not IsNull(xNode.nodeValue) Then
           'strValue = xNode.nodeValue
        'Else
            strValue = xNode.Text
        'End If
           
        sortValues strField, strValue
                
    'End If
    
    'If xNode.hasChildNodes Then
        'IterateNodes xNode.childNodes
    'End If
 
Next
 
end function
 
private function sortValues(strField, strValue)
Response.ContentType = "text/HTML"
Response.Write ("<" & strfield & ">")
Response.Write (chr(9) & "<" & strvalue & ">")
Response.Write ("</" & strfield & ">")
end function

any ideas would be greatly appreciated

[Blobby]

'Doesnt execute correctly' isnt much to go on......what isnt happening that should/is that shouldnt? Is it just that it isnt finding any nodes or is there something more sinister going on?

[rudvs2]

sorry I should have been clearer.

It isnt finding any nodes. I have basically concluded that the problem is either I am defining the wrong node type to look for or in the remote app its not creating the xml correctly

but I cant seem to see what It is that I have done wrong.

[Blobby]

Can u post the XML document u r trying to parse?

[rudvs2]

The xml document is being dynamically constructed by the app and then sent to the asp page all the code for this is posted above

[rudvs2]

okay all I have finally figured out where i went wrong

It was the way in which i was creating the XML document. The structure I was using was all messed up

For those that might be interested here is a sample format of code that works


In the App

Dim xmld As MSXML2.DOMDocument30
Dim xmld2 As MSXML2.XMLHTTP30
Dim rootElement
Dim memoAttribute
Dim memoAttributeText
Dim toElement
Dim toElementText
 
'create the items
Set xmld = New MSXML2.DOMDocument30
Set rootElement = xmld.createElement("Memo")
Set memoAttribute = xmld.createAttribute("Author")
Set memoAttributeText = xmld.createTextNode("Pat Coleman")
Set toElement = xmld.createElement("To")
Set toElementText = xmld.createTextNode("Carol Poland")
 
'build the document
xmld.appendChild (rootElement)
rootElement.setAttributeNode (memoAttribute)
rootElement.appendChild (toElement)
rootElement.appendChild (toElementText)
 
'prepare object to send xml to asp page
Set xmld2 = New MSXML2.XMLHTTP30
'send out the xml
xmld2.open "POST", "http://escs1/richmastery/secure/xml/put_order.asp?IDGRP=AKL&userCode=miketest&pwd=mik001p", False
xmld2.send xmld
'get and process the response
Set strResponse = xmld2.responseXML
Text1.Text = ""
Text1.Text = Text1.Text & xmld2.responseText
Open "C:\Workshop\temp\t.htm" For Output As #1
Print #1, Text1.Text
Close #1
WebBrowser1.Navigate "C:\Workshop\temp\t.htm"

and on the asp page

Private function parse_xml 
Dim strField
Dim strValue
Dim isSuccess
Dim xNode 
dim oNode
set oNode = XMLdoc.documentElement
Response.Write ("<got here1>")
 
 
For Each xNode In oNode.childNodes 
    
    If xNode.nodeType = 3 Then
        Response.Write ("<got here2>")
        strField = xNode.parentNode.nodeName
        
        If Not IsNull(xNode.nodeValue) Then
           strValue = xNode.nodeValue
        Else
            strValue = xNode.Text
        End If
           
        sortValues strField, strValue
                
    End If
    
    If xNode.hasChildNodes Then
        IterateNodes xNode.childNodes
    End If
 
Next
 
end function
 
private function sortValues(strField, strValue)
Response.ContentType = "text/HTML"
Response.Write ("<" & strfield & ">")
Response.Write (chr(9) & "<" & strvalue & ">")
Response.Write ("</" & strfield & ">")
end function