Справка по ошибкам: ошибка времени выполнения Microsoft VBScript '800a005e'

Question

Я получаю следующую ошибку на этой странице для списков стандартных объявлений (прокрутите вниз): http://www.inside -guides.co.uk / brentwood / fitness-sport-and-leisure / days- out.html

Раньше все работало без ошибок, поэтому я не понимаю, почему вдруг выдает ошибку.

Ошибка времени выполнения Microsoft VBScript '800a005e' Неправильное использование Null: 'Заменить' /PageObjects/DirectoryBrowser/i_DirectoryAdvert.asp, строка 124

Код в строке 124:

strDB_AdvertItem = Replace(strDB_AdvertItem, "[OpeningTimes]", rsDB_Ads("OpeningTimes"))

Любые идеи о том, почему это может быть высоко оценено!

Answer 1

Судя по ошибке, либо strDB_AdvertItem, либо rsDB_Ads("OpeningTimes") имеет значение null.

Я подозреваю, что это будет rsDB_Ads("OpeningTimes"), у которого могло быть допустимое значение в базе данных в последний раз, когда вы запускали программу, но больше нет.

Что-то вроде приведенного ниже кода (не проверено) должно предотвратить возникновение ошибки, но вам нужно убедиться, что значения NULL не вызывают неожиданное поведение в других местах

Dim OpeningTimes
If IsNull(rsDB_Ads("OpeningTimes")) Then OpeningTimes = "" Else OpeningTimes = rsDB_Ads("OpeningTimes")
If IsNull(strDB_AdvertItem) Then strDB_AdvertItem = ""

strDB_AdvertItem = Replace(strDB_AdvertItem, "[OpeningTimes]", OpeningTimes)