<%@ Page Language="vb" %>
Sub Page_Load()
Try
Server.Execute("Foo.aspx")
Catch HttpEx As HttpException
Message.Text = "ERROR:"
Message.Text &= "Http Status Code: " & _
HttpEx.GetHttpCode() & ""
End Try
End Sub