A web service has already been created & the url link for the same is:http://xx.xx.xx/TourData/services/TourRequest
(sorry i cant reveal xx.xx.xx)
I have an XML string created through Lotus Notes agent, which I want to pass to this web service:
xmlstring is:
<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?><InputToursCollection xmlns="http://www.tumlare.com">
<TourRefNo>461204109</TourRefNo>
<LinkNo>UTYYOF01060010</LinkNo>
the code that I am using is:
Dim objParser as variant
Dim xmlDOM as variant
Set objParser = CreateObject( “Microsoft.XMLHTTP” )
objParser.Open “POST”, url, False
objParser.setRequestHeader “Content-Type”, “text/xml; charset=utf-8”
objParser.send(XmlText)
Set xmlDOM = CreateObject(“Microsoft.XMLDOM”)
xmlDOM.async = False
Call xmlDOM.loadXML(objParser.responseXML.xml)
but i am not getting the desired response. if I use the following statements to see the result:
Msgbox objParser.ResponseText → Returns some XML with soap fault tags
Msgbox objParser.responseXML.xml → same response as above
Msgbox Cstr(objParser.readyState ) → 4
Msgbox Cstr(objParser.Status) → 500
Can anyone help me so that I can get the correct output.
Or maybe I am wrong in declaring the objects