Чтобы при возникновении ошибки очистить

Пример 7

Чтобы при возникновении ошибки очистить буфер и направить пользователя на страницу, сообщающую об ошибке, введите следующий код: Response.Buffer = True
On Error Resume Next
'Код, который может вызвать фатальную ошибку,
'например, невозможность подключиться к данным If Err.number <> 0 Then
Response.Clear
Response.Redirect "error.him"
End If