<%@ Page Language=VB Debug=true %>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
End Sub
Sub SubmitBtn_Click(Source As Object, E as EventArgs)
MyMessage.InnerHTML = ""
If radBreakfast.Checked = True Then
MyMessage.InnerHTML = "You selected " _
& "breakfast.
"
ElseIf radLunch.Checked = True Then
MyMessage.InnerHTML = "You selected " _
& "lunch.
"
Else
MyMessage.InnerHTML = "You selected " _
& "dinner.
"
End If
End Sub
Allowing Input through the HTMLInputRadioButton Control
id="MyMessage"
runat=server
>
Which is your favorite meal?
id="radBreakfast"
runat="server"
type="radio"
Checked
name="Meal"
/>
Breakfast
id="radLunch"
runat="server"
type="radio"
name="Meal"
/>
Lunch
id="radDinner"
runat="server"
type="radio"
name="Meal"
/>
Dinner
id="Button1"
runat="server"
onserverclick="SubmitBtn_Click"
>
Submit