<%@ Page Language=VB Debug=true %> Sub SubmitBtn_Click(Sender As Object, E As EventArgs) On Error GoTo HandleError Dim TempResult as Integer TempResult = txtNumber1.Text / txtNumber2.Text lblResult.Text = "Result: " & TempResult Exit Sub
HandleError: lblError.Text = "Unable to calculate due to this error: " _ & Err.Description End Sub
On Error Go To
id="lblMessage1" runat="Server" Text="Enter a Number" />
id="txtNumber1" runat="Server" />
id="lblMessage2" runat="Server" Text="Enter another Number" />
id="txtNumber2" runat="Server" />
id="lblResult" runat="Server" Text="Result: " />
id="lblError" runat="Server" />
id="butOK" text=" Go " Type="Submit" OnClick="SubmitBtn_Click" runat="server" />