Dim InputText, SEL1, SELL1, UP1, UPP1
InputText = InputBox("Введите пояснение срыва заявки:Причина срыва. Не забудьте изменить ставки клиента и перевозчика!Так же не забудьте отредактировать примечание к перевозке!")
If InputText = " " Then
MsgBox ("Вы ничего не ввели!")
WScript.Quit
End If
SEL1 = "SELECT DopolnitelnoyeOpisaniye FROM qdfMain WHERE ClientID = <ClientID>"
SELL1 = ExecuteSQL(SEL1)
UP1 = "UPDATE qdfMain SET [DopolnitelnoyeOpisaniye] = " & "'" & InputText & "' WHERE ClientID = <ClientID>"
MsgBox UP1
UPP1 = ExecuteSQL(UP1)

SEL1 = "SELECT DopolnitelnoyeOpisaniye FROM qdfMain WHERE ClientID = <ClientID>"

SELL1 = ExecuteSQL(SEL1)

UP1 = "UPDATE qdfMain SET [DopolnitelnoyeOpisaniye] = " & UPP1 & " " & "'" & InputText & "' WHERE ClientID = <ClientID>"