Asp Control ASP.Net

<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblTitle.Text = "Odd or Even Page"
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblMessage2.Text = "number entered: " & OddOrEven(txtNumber.Text)
End Sub
Function OddOrEven(TheNumber as Long) as String
    If TheNumber Mod 2 = 0 Then
        OddOrEven = "even."
    Else
        OddOrEven = "odd."
    End If
End Function



Odd Or Even Sample Page




    id="lblTitle" 
    runat="server"
/>




    id="lblMessage1"
    runat="server"
    Text="Enter a number"
/>
    id="txtNumber"
    runat="server"
/>


    id="butOK"
    text="OK"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>



    id="lblMessage2"
    runat="server"
/>