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 = fspenTextFile(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
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 = fspenTextFile(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