Обработка ошибок неверных данных на стороне сервера

[Andrej Kirejeŭ]

Код, указанный ниже, обработает только ошибки физического крушения сервера или обрыва сети, но не сможет обработать ошибки логические, когда сервер успешно получил данные, но они ему не подходят.

call oXMLHTTP.Send(JSON)
  on error goto 0

  If Err.Number <> 0 Then
    MsgBox "Ошибка передачи файла " & Err.Message
    bot_SendFile = False
  Else
    bot_SendFile = True
  End If

Надо в случае успешной обработки на сервере возвращать код 200, а в случае ошибки в данных код 500. Тогда проверка в макросе будет выглядеть:

call oXMLHTTP.Send(JSON)
  on error goto 0

  If Err.Number <> 0 Then
    MsgBox "Ошибка передачи файла " & Err.Message
    bot_SendFile = False
  ElseIf oXMLHTTP.status <> 200 Then
    MsgBox "Ошибка обработки наддын на сервере"
    bot_SendFile = False
  Else
    bot_SendFile = True
  End If