<%@ Page Language="VB" %>
sub Submit(Sender as Object, e as EventArgs)
dim strIncome as string = lbIncome.SelectedItem.Text
dim strAge as string = rlAge.SelectedItem.Text
lblMessage.Text = "Hello " & tbName.Text & "!" & _
"Your income is: " & strIncome & "
" & _
"Your age is: " & strAge & "
"
if rlAge.SelectedIndex < 3 then
lblMessage.Text += "You're a young one!"
else
lblMessage.Text += "You're a wise one!"
end if
if cbNewsletter.Checked then
lblMessage.Text += "You will be receiving our" & _
" newsletter shortly."
end if
end sub
Enter your name:
Choose your age:
<18
19-24
25-34
35-49
50-65
Choose your income:
< $9
$10-$99
$100-$499
> $500
Do you want to receive our newsletter?