SET @URL = 'https://http.mnogos.com:8001/send/'

-- Создаём объект рассылки по протоколу http.
EXECUTE @rc = sp_OACreate 'WinHttp.WinHttpRequest.5.1', @Object OUTPUT
--EXEC @ErrCode = sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @OLEObject OUT
--EXEC @ErrCode = sys.sp_OACreate 'Microsoft.XMLHTTP', @OLEObject OUT
--EXEC @ErrCode = sys.sp_OACreate 'IXMLHTTPRequest', @OLEObject OUT

IF @rc <> 0 GOTO DestroyObject
  
EXECUTE @rc = sp_OAMethod @Object, 'open', NULL, 'POST', @URL, 'false'
IF @rc <> 0 GOTO DestroyObject
  
EXECUTE @rc = sp_OAMethod @Object, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded'
IF @rc <> 0 GOTO DestroyObject

-- Подготовка сообщения к отправке.
SET @POST_STR =
      'login='			+ @Login	+ '&'+
      'password='		+ @Password	+ '&'+      
      'operation=limit'
    
-- Отправка.
EXECUTE @rc = sp_OAMethod @Object, 'send', NULL, @POST_STR
IF @rc <> 0 GOTO DestroyObject
-- Получение ответа от сервера.
EXECUTE @rc = sp_OAGetProperty @Object, 'responseText', @Response OUT
IF @rc <> 0 GOTO DestroyObject

DestroyObject:

IF @rc <> 0
BEGIN
  EXECUTE sp_OAGetErrorInfo @Object, @src OUT, @desc OUT
  PRINT 'ОШИБКА: ' + @src + '. ' + @desc
END

EXECUTE sp_OADestroy @Object

exec @rc = sp_OAMethod @Object, 'Option', null, 2 ,13056  -- игнорировать сертификат
IF @rc <> 0 GOTO DestroyObject