<%@ Page Language="vb" EnableSessionState="false" %>
Sub Page_Load()
Try
Session("foo") = "Foo"
Catch HttpEx As HttpException
Message.Text = "ERROR:"
Message.Text &= "Message: " & HttpEx.Message & ""
Message.Text &= "Target Site: " & HttpEx.TargetSite.Name & ""
End Try
End Sub