<%@ Page Language="vb" AutoEventWireup="false" Codebehind="OrderSupplies.aspx.vb" Inherits="supplies.OrderSupplies"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>OrderSupplies</title> <script language="vbscript"> sub ValidateTxt(sender, args) Dim strValue As String strValue = args.Value args.IsValid = True If Len(strValue) < 1 Then args.IsValid = False End If If Not IsNumeric(strValue) Then args.IsValid = False End If end sub </script> <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0"> <meta name="CODE_LANGUAGE" content="Visual Basic 7.0"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <asp:Label id="Label1" style="Z-INDEX: 101; LEFT: 26px; POSITION: absolute; TOP: 62px" runat="server">Label</asp:Label> <asp:TextBox id="txtQuantity" style="Z-INDEX: 102; LEFT: 79px; POSITION: absolute; TOP: 62px" runat="server"></asp:TextBox> <asp:CustomValidator id="CustomValidator1" style="Z-INDEX: 103; LEFT: 262px; POSITION: absolute; TOP: 69px" runat="server" ErrorMessage="Bad Number" ClientValidationFunction="ValidateTxt" Display="Dynamic" ControlToValidate="txtQuantity"></asp:CustomValidator> <asp:Button id="cmdAdd" style="Z-INDEX: 104; LEFT: 203px; POSITION: absolute; TOP: 158px" runat="server" Text="Submit"></asp:Button> </form> </body> </HTML>