<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title>Untitled Page</title> </head><body> <form id="form1" runat="server"> <asp:Label runat="server" Text="Enter a username: " /><asp:TextBox id="txtUsername" runat="server" /><asp:Button ID="Button1" Text="Submit" runat="server"/><br /><asp:Label id="mess" runat="server"/><br /><asp:CustomValidator ID="CustomValidator1" ControlToValidate="txtUsername" ServerValidate="ValidateUser" Text="A username must be between 8 and 16 characters" runat="server"/></form> </body></html>
Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Sub ValidateUser(ByVal source As Object, ByVal args As ServerValidateEventArgs) If Len(args.Value) < 8 Or Len(args.Value) > 16 Then args.IsValid = False Else args.IsValid = True End If End SubEnd Class