Home / Questions / 14827
Accepted
Miquel Coll
Asked: 2020-06-24 02:35:19 +0800 CST 2020-06-24 02:35:19 +0800 CST

Try Catch in classic ASP

  • 772

I am modifying a project made in classic asp with Visual Basic 6 and I need to catch an error.

Specifically, the error is generated by these lines:

dim strResult, split1, split2  
strResult = FuncionQueDevuelveUnXML() 
split1 = Split(strResult,"</a:AccessToken>")(0)
split2 = Split(split1,"<a:AccessToken>")(1)

The case where it fails that I would like to capture is when the tag does not existAccessToken .

As you can see currently there is no control and the page generates an error 500 ( very ugly )

I know I could perform a InStrto check if the tag exists:

if InStr(strResult,"<a:AccessToken>") < 1 Then
    'No existe el tag
else
    'Si existe el tag
end if

But I wanted to know if a can be done try catchto catch any type of error.

Although not with try catchitself but something similar, the truth is that I do not know if there is such a thing.

asp

1 Answers

  1. Best Answer

    You should use the On Error statement. Something like that:

    Dim strResult, split1, split2
strResult = FuncionQueDevuelveUnXML()
On Error Resume Next ' Si hay un error continúa con la siguiente isntrucción
Err.Clear()
split1 = Split(strResult,"</a:AccessToken>")(0)
If Err.Number <> 0 Then
    On Error Goto 0 ' Para que no omita los errores de aquí en adelante
    ' Código para tratar el error
Else
    On Error Goto 0 ' Para que no omita los errores de aquí en adelante
    split2 = Split(split1,"<a:AccessToken>")(1)
End If

    To enable error handling with the On Error statement you have 3 options:

    1. GoTo [line #] - Control jumps to the specified line when an error occurs
    2. GoTo [label] - Control jumps to the line with the specified label when an error occurs
    3. Resume Next - control continues to the next statement when an error occurs

    When you have enabled error handling with one of these 3 options, once you have finished the block in which you want to handle errors (the code you would normally have in a try) you can (or rather should) use the On Error GoTo 0 statement to disable error handling.

    You can find information about the On Error statement in the MSDN documentation: On Error Statement (Visual Basic)

    • 5