|
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Try
Dim TempResult as Integer
TempResult = txtNumber1.Text / txtNumber2.Text
lblResult.Text = "Result: " & TempResult
Catch TheException as Exception
lblResult.Text = "Error occured: " _
& TheException.ToString()
Finally
lblResult.Text = lblResult.Text _
& "<BR>Done."
End Try
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Try</TITLE>
</HEAD>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60">
<form runat="server">
<Font Face="Tahoma" Size="+1">
<asp:Label
id="lblMessage1"
runat="Server"
Text="Enter a Number"
/>
<BR>
<asp:TextBox
id="txtNumber1"
runat="Server"
/>
<BR><BR>
<asp:Label
id="lblMessage2"
runat="Server"
Text="Enter another Number"
/>
<BR>
<asp:TextBox
id="txtNumber2"
runat="Server"
/>
<BR><BR>
<asp:Label
id="lblResult"
runat="Server"
Text="Result: "
/>
<BR>
<asp:Button
id="butOK"
text=" Go "
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</Font>
</Form>
</BODY>
</HTML>
|