Я считаю, что ваш синтаксис неправильный, а логика слишком сложная.
Не совсем уверен в синтаксисе здесь или в правильном формате даты, но я добавил несколько response.write для вас, чтобы вы проверили (что должно было быть вашей первой остановкой)
Ваша логика слишком сложна, поскольку она не отображает дату только в том случае, если она совпадает с этой особой датой.
Dim DateT
Dim BeginDate
Dim EndDate
BeginDate = CDate("2017-05-26")
EndDate = CDate("2017-11-04")
DateT = Date()
' remove these when you're finished debugging
response.write(BeginDate)
response.write(EndDate)
If BeginDate = CDate("2017-10-09")THEN
response.write("Another message")
Else
response.write(DateT)
End If