<%@ Page Language="VB" %>
sub Submit(Sender as Object, e as EventArgs)
lblMessage.Text = ""
if tbName.Text = "" then
lblMessage.Text = "You forgot your name!
"
end if
if tbPhone.Text = "" then
lblMessage.Text += "You forgot your phone!
"
end if
if tbEmail.Text = "" then
lblMessage.Text += "You forgot your email!
"
end if
if lblMessage.Text = "" then
lblMessage.Text = "Your information has been " & _
"submitted!"
end if
end sub
Please enter the following information.
Name*
Address
Phone* (area code first)
Fax (area code first)
Email*
An asterisk (*) indicates a required field.