Hi, here is a code
Private Sub PassTXrecordtoGP(ByVal sopNum As String, ByVal WOnum As String, ByVal mustNumb As String)
Dim objXMLHTTP As MSXML2.XMLHTTP60
Dim sURL As String Dim i As Integer
i = 1
For i = 1 To 3
If (Len("" & sopNum) = 0) Or (Len("" & WOnum) = 0) Or (Len("" & mustNumb) = 0) Then Exit For
sURL = "http://192.168.214.111/webservice/integration.asmx/PreauthMode2?WOnum=" & WOnum & "&masterNumber=" & mustNumb & "&invoiceNumber=" & sopNum
Set objXMLHTTP = New MSXML2.XMLHTTP60
objXMLHTTP.Open "POST", sURL, False
objXMLHTTP.Send
If InStr(1, objXMLHTTP.responceText, "success") > 0 Then 'webservice call is successful, No need to try 3 more times!
Set objXMLHTTP = Nothing
Exit For
Else
Set objXMLHTTP = Nothing
GoToSleep 2 'wait for 2 seconds and then retry again!
End If
Here is an error:
System.InvalidOperationException: Request format is invalid: . at System.Web.Services.Protocols.HttpServerProtocol.ReadParameters() at System.Web.Services.Protocols.WebServiceHandler.CoreProcessRequest()
status = 500: "Internal Server Error"
What am i doing wrong?
Thanks for help everyone.