<%@ Page Language="vb" %>
Sub Page_Load()
Try
ThrowMeAnException
Catch HttpEx As HttpException
Message.Text = "ERROR:"
Message.Text &= "Message: " & HttpEx.Message & ""
Message.Text &= "Stack Trace: " & HttpEx.StackTrace & ""
End Try
End Sub
Sub ThrowMeAnException()
Throw New HttpException("Threw an error from ThrowMeAnException")
End Sub