xmlHTTP.Send Questions
See code below. This used to work now I am getting an error message on the
xmlHTTP.Send Error Message = The download of the specified resource has failed. -2146697208 MSXML3.dll Function submitXMLToURL() As String Dim theURL As String Dim xmlHTTP As New xmlHTTP Dim txt As TextStream Dim x As String Dim xmlDoc As New MSXML2.DOMDocument On Error GoTo ErrTRAP submitXMLToURL = "-1" Set txt = fso.OpenTextFile(Me.txtXMLFileName) x = txt.ReadAll txt.Close theURL = "https://WebSiteURL" xmlHTTP.Open "POST", theURL, False xmlHTTP.send x xmlDoc.async = False xmlDoc.loadXML xmlHTTP.responseText If xmlDoc.XML "" Then submitXMLToURL = xmlDoc.XML Else submitXMLToURL = xmlHTTP.responseText End If ErrTRAP: MsgBox Err.Description & Err.Number & Err.Source End Function |
xmlHTTP.Send Questions
Sorry, Forgot to say I put this question here because this code is in an
excel spreadsheet and it also creates the xml file that the below code uploads. "Chris" wrote: See code below. This used to work now I am getting an error message on the xmlHTTP.Send Error Message = The download of the specified resource has failed. -2146697208 MSXML3.dll Function submitXMLToURL() As String Dim theURL As String Dim xmlHTTP As New xmlHTTP Dim txt As TextStream Dim x As String Dim xmlDoc As New MSXML2.DOMDocument On Error GoTo ErrTRAP submitXMLToURL = "-1" Set txt = fso.OpenTextFile(Me.txtXMLFileName) x = txt.ReadAll txt.Close theURL = "https://WebSiteURL" xmlHTTP.Open "POST", theURL, False xmlHTTP.send x xmlDoc.async = False xmlDoc.loadXML xmlHTTP.responseText If xmlDoc.XML "" Then submitXMLToURL = xmlDoc.XML Else submitXMLToURL = xmlHTTP.responseText End If ErrTRAP: MsgBox Err.Description & Err.Number & Err.Source End Function |
xmlHTTP.Send Questions
Go here http://www.fiddler2.com/fiddler2/ and download Fiddler.
You can use it to debug the server response and maybe see what the issue is. Tim "Chris" wrote in message ... Sorry, Forgot to say I put this question here because this code is in an excel spreadsheet and it also creates the xml file that the below code uploads. "Chris" wrote: See code below. This used to work now I am getting an error message on the xmlHTTP.Send Error Message = The download of the specified resource has failed. -2146697208 MSXML3.dll Function submitXMLToURL() As String Dim theURL As String Dim xmlHTTP As New xmlHTTP Dim txt As TextStream Dim x As String Dim xmlDoc As New MSXML2.DOMDocument On Error GoTo ErrTRAP submitXMLToURL = "-1" Set txt = fso.OpenTextFile(Me.txtXMLFileName) x = txt.ReadAll txt.Close theURL = "https://WebSiteURL" xmlHTTP.Open "POST", theURL, False xmlHTTP.send x xmlDoc.async = False xmlDoc.loadXML xmlHTTP.responseText If xmlDoc.XML "" Then submitXMLToURL = xmlDoc.XML Else submitXMLToURL = xmlHTTP.responseText End If ErrTRAP: MsgBox Err.Description & Err.Number & Err.Source End Function |
xmlHTTP.Send Questions
Does this work with Vista and IE7? I can't seem to get it to detect any IE
connections. -Chris "Tim Williams" wrote: Go here http://www.fiddler2.com/fiddler2/ and download Fiddler. You can use it to debug the server response and maybe see what the issue is. Tim "Chris" wrote in message ... Sorry, Forgot to say I put this question here because this code is in an excel spreadsheet and it also creates the xml file that the below code uploads. "Chris" wrote: See code below. This used to work now I am getting an error message on the xmlHTTP.Send Error Message = The download of the specified resource has failed. -2146697208 MSXML3.dll Function submitXMLToURL() As String Dim theURL As String Dim xmlHTTP As New xmlHTTP Dim txt As TextStream Dim x As String Dim xmlDoc As New MSXML2.DOMDocument On Error GoTo ErrTRAP submitXMLToURL = "-1" Set txt = fso.OpenTextFile(Me.txtXMLFileName) x = txt.ReadAll txt.Close theURL = "https://WebSiteURL" xmlHTTP.Open "POST", theURL, False xmlHTTP.send x xmlDoc.async = False xmlDoc.loadXML xmlHTTP.responseText If xmlDoc.XML "" Then submitXMLToURL = xmlDoc.XML Else submitXMLToURL = xmlHTTP.responseText End If ErrTRAP: MsgBox Err.Description & Err.Number & Err.Source End Function |
xmlHTTP.Send Questions
I just tested in IE7 and Vista and it worked fine...
Tim "Chris" wrote in message ... Does this work with Vista and IE7? I can't seem to get it to detect any IE connections. -Chris "Tim Williams" wrote: Go here http://www.fiddler2.com/fiddler2/ and download Fiddler. You can use it to debug the server response and maybe see what the issue is. Tim "Chris" wrote in message ... Sorry, Forgot to say I put this question here because this code is in an excel spreadsheet and it also creates the xml file that the below code uploads. "Chris" wrote: See code below. This used to work now I am getting an error message on the xmlHTTP.Send Error Message = The download of the specified resource has failed. -2146697208 MSXML3.dll Function submitXMLToURL() As String Dim theURL As String Dim xmlHTTP As New xmlHTTP Dim txt As TextStream Dim x As String Dim xmlDoc As New MSXML2.DOMDocument On Error GoTo ErrTRAP submitXMLToURL = "-1" Set txt = fso.OpenTextFile(Me.txtXMLFileName) x = txt.ReadAll txt.Close theURL = "https://WebSiteURL" xmlHTTP.Open "POST", theURL, False xmlHTTP.send x xmlDoc.async = False xmlDoc.loadXML xmlHTTP.responseText If xmlDoc.XML "" Then submitXMLToURL = xmlDoc.XML Else submitXMLToURL = xmlHTTP.responseText End If ErrTRAP: MsgBox Err.Description & Err.Number & Err.Source End Function |
All times are GMT +1. The time now is 07:00 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com