View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Tim Williams[_2_] Tim Williams[_2_] is offline
external usenet poster
 
Posts: 298
Default 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