Sub RouteCall
Dim requestSoapXML As String
Dim sChar As String
Dim Soap As HttpJob
Log("in route call")
sChar = "&"
Soap.Initialize("GetRoute","Globaal")
HttpUtils.CallbackUrlDoneSub = "" 'don't want to handle this event
requestSoapXML = Main.MainUrl&"/GetRoute10/JSON?iPDA="&Main.uniqueID&sChar&"sWachtwoord="&Main.wachtwoord&sChar&"xmlParameters="
Log(requestSoapXML )
Soap.Download(requestSoapXML)
End Sub