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

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

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

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

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