Mega Code Archive
Check form input value and report error in case of empty input (VB net)
<![CDATA[
<%@ Page Language="VB" %>
<script runat="server">
sub Submit(Sender as Object, e as EventArgs)
lblMessage.Text = ""
if tbName.Text = "" then
lblMessage.Text = "You forgot your name!<br>"
end if
if tbPhone.Text = "" then
lblMessage.Text += "You forgot your phone!<br>"
end if
if tbEmail.Text = "" then
lblMessage.Text += "You forgot your email!<br>"
end if
if lblMessage.Text = "" then
lblMessage.Text = "Your information has been " & _
"submitted!"
end if
end sub
</script>
<html><body>
Please enter the following information.
<asp:Label id="lblMessage" runat="server"/>
<form runat="server">
<table>
<tr>
<td width="250">Name* </td>
<td width="150">
<asp:TextBox id="tbName" runat="server"/>
</td>
</tr>
<tr>
<td>Address</td>
<td>
<asp:TextBox id="tbAddress" runat="server"/>
</td>
</tr>
<tr>
<td>Phone* (area code first)</td>
<td>
<asp:TextBox id="tbPhone" runat="server"/>
</td>
</tr>
<tr>
<td>Fax (area code first)</td>
<td>
<asp:TextBox id="tbFax" runat="server"/>
</td>
</tr>
<tr>
<td>Email*</td>
<td>
<asp:TextBox id="tbEmail" runat="server"/>
</td>
</tr>
<tr>
<td colspan="2">
<asp:Button id="btSubmit" runat="server" Text="Submit" OnClick="Submit" />
</td>
</tr>
</table>
<i>An asterisk (*) indicates a required field.</i>
</form>
</body></html>
]]>