Question Webservice is not working - Any other alternative

Hi,

Below code was working fine. I got this from a Progress KB. Now it is not working. Any other free webservice to replace this. Please advise.

Regards
-Philip-

DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hCurrencyServerWebServiceSoap AS HANDLE NO-UNDO.
CREATE SERVER hWebService.
hWebService:CONNECT("-WSDL 'http://www.currencyserver.de/webservice/currencyserverwebservice.asmx?WSDL'").
RUN CurrencyServerWebServiceSoap SET hCurrencyServerWebServiceSoap ON hWebService.
DEFINE VARIABLE provider AS CHARACTER NO-UNDO.
DEFINE VARIABLE srcCurrency AS CHARACTER NO-UNDO.
DEFINE VARIABLE dstCurrency AS CHARACTER NO-UNDO.
DEFINE VARIABLE getCurrencyValueResult AS CHARACTER NO-UNDO.
provider = "AVERAGE".
srcCurrency = "CAD".
dstCurrency = "USD".
RUN getCurrencyValue IN hCurrencyServerWebServiceSoap(INPUT provider, INPUT srcCurrency, INPUT dstCurrency, OUTPUT getCurrencyValueResult).
hWebService:DISCONNECT().
MESSAGE srcCurrency "->" dstCurrency "="
getCurrencyValueResult VIEW-AS ALERT-BOX.
 
Top