<%@ Page Language="vb" %>
Sub Page_Load()
Try
Dim myHttpEx As _
New HttpException("This is a nested exception")
Throw New HttpException("Threw an exception from Page_Load", _
myHttpEx)
Catch HttpEx As HttpException
Dim InnerHttpEx As HttpException
InnerHttpEx = HttpEx.InnerException
myMessage.Text = "ERROR:"
myMessage.Text &= "Message: " & HttpEx.Message & ""
myMessage.Text &= "Inner Exception Message: " & _
InnerHttpEx.Message & ""
End Try
End Sub