xmlHTTP.Send Questions

C

Chris

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
 
C

Chris

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.
 
C

Chris

Does this work with Vista and IE7? I can't seem to get it to detect any IE
connections.

-Chris
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top