>< % ERROR: @ 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> > >