<%@ Page Language="vb" %>
Sub Page_Load()
Try
Dim myHttpEx As _
New HttpException("Threw an exception from Page_Load")
myHttpEx.HelpLink = "file://C:/Data.htm"
Throw myHttpEx
Catch HttpEx As HttpException
myMessage.Text = "ERROR:"
myMessage.Text &= "Message: " & HttpEx.Message & ""
myMessage.Text &= "Help Link: " & HttpEx.HelpLink & ""
End Try
End Sub