DimobjHTTP,xmlDOC,strWebserviceURL,strRequest,bOK,xmlStrSetobjHTTP=CreateObject("MSXML2.XMLHTTP"