sub Submit(Sender as Object, e as EventArgs)
if tbFName.Text <> "" and not IsNumeric(tbFName.Text) then
lblMessage.Text = "First name is incorrect!"
end if
if tbLName.Text <> "" and not IsNumeric(tbLName.Text) then
lblMessage.Text = "Last name is incorrect!"
end if
if tbAddress.Text <> "" then
lblMessage.Text = "Address is incorrect!"
end if
if tbCity.Text <> "" and not IsNumeric(tbCity.Text) then
lblMessage.Text = "City is incorrect!"
end if
if tbState.Text <> "" and not IsNumeric(tbState.Text) then
lblMessage.Text = "State is incorrect!"
end if
if tbZIP.Text <> "" and IsNumeric(tbZIP.Text) then
lblMessage.Text = "ZIP is incorrect!"
end if
if tbPhone.Text <> "" then
lblMessage.Text = "Success!"
else
lblMessage.Text = "Phone is incorrect!"
end if
end sub
First and last name:
Email:
Address:
City, State, ZIP:
Phone: