Forum Discussion
AlexKaras
Champion Level 2
13 years agoHi,
I think that after the header is added to the request, you should add the absent mustUnderstand attribute to it by the means of XML API (http://msdn.microsoft.com/en-us/library/windows/desktop/ms764615%28v=vs.85%29.aspx from http://msdn.microsoft.com/en-us/library/windows/desktop/ms764730%28v=vs.85%29.aspx).
Something like this:
'-----------------------------------------------------------------------------
Function createAttributeNS(ByRef oParentNode, ByVal strAttrName, ByVal strAttrValue, ByVal strNameSpace)
Dim oAttrNS
Set oAttrNS = oParentNode.ownerDocument.createNode(2, strAttrName, strNameSpace) ' create node of Element type
oAttrNS.text = strAttrValue
Call oParentNode.attributes.setNamedItem(oAttrNS)
Set createAttributeNS = oAttrNS
End Function
'-------------------------------------------------------------------------------
I think that after the header is added to the request, you should add the absent mustUnderstand attribute to it by the means of XML API (http://msdn.microsoft.com/en-us/library/windows/desktop/ms764615%28v=vs.85%29.aspx from http://msdn.microsoft.com/en-us/library/windows/desktop/ms764730%28v=vs.85%29.aspx).
Something like this:
'-----------------------------------------------------------------------------
Function createAttributeNS(ByRef oParentNode, ByVal strAttrName, ByVal strAttrValue, ByVal strNameSpace)
Dim oAttrNS
Set oAttrNS = oParentNode.ownerDocument.createNode(2, strAttrName, strNameSpace) ' create node of Element type
oAttrNS.text = strAttrValue
Call oParentNode.attributes.setNamedItem(oAttrNS)
Set createAttributeNS = oAttrNS
End Function
'-------------------------------------------------------------------------------