Hi Experts,

I have a script that generates an email if there was an error on the previous page, it starts --

Dim objError
Set objError = Server.GetLastError()

Dim bots, foundBot
foundBot = false
bots = "Googlebot,Slurp,msnbot,bingbot,Mediapartners-Google,YandexBot"
bots = Split( bots, ",")
For i=0 To UBound(bots)
  If Instr(1, Request.ServerVariables("HTTP_USER_AGENT"), bots(i) ) Then
    foundBot = True
    Exit For
  End If
If False=foundBot Then

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

Open in new window

But I only want the script to run
If objError <> "" ..

But If I try adding this under the declaration of the variable; --

Dim objError
Set objError = Server.GetLastError()
If objError <> "" then

Open in new window

I get

Microsoft VBScript runtime
error '800a01b6'
Object doesn't support this property or method
/err.asp, line 5 ""

Where have i gone wrong?

Who is Participating?
basicinstinctConnect With a Mentor Commented:
try this?

If Not objError Is Nothing Then
garethtnashAuthor Commented:
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.