Function fsendHTTPGet(lFName, lObjXML) Dim oMsg, retVal set lObjXML = CreateObject("MSXML.DomDocument") set oMsg = CreateObject("Microsoft.XMLHTTP") call oMsg.open("GET", lFName, false) call oMsg.setRequestHeader("Content-Type", "text/xml-SOAP") call oMsg.setRequestHeader("Internal", "true") call oMsg.send() lObjXML.async=false 'lObjXML.load(lFName) lObjXML.loadXML(oMsg.responseText) if fParsed(lObjXML)<> true then 'checks if the object contents valid XML set retVal = window.open() retVal.document.write(oMsg.responseText) 'here i can see the repsone XML with junk characters appended at the end. One of the users had send us the screen of this. fsendHTTPGet = "false" msgBox fDirectGetValue(gClientSideLiteralXMLObj,"ServerError") '"Invalid server response : Parse Error" else 'if error then always show message if fDirectGetValue(lObjXML, "XML/Error/@ErrorNo") = "TimeOut" then if sMessage <> "" then msgBox sMessage end if call fDoRedirect(fDirectGetValue(lObjXML, "XML/Redirect"),"") fsendHTTPGet = "false" exit function end if fsendHTTPGet = "true" end if End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)