|
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Answer_ServerValidation(source As object, E As ServerValidateEventArgs)
If E.Value = CLng(E.Value) Then
If E.Value Mod 2 = 0 Then
If E.Value > 0 Then
E.IsValid = True
Else
E.IsValid = False
End If
Else
E.IsValid = False
End If
Else
E.IsValid = False
End If
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Validating Against a Positive Even Whole Number using the CustomValidator Control</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter a Positive, Even, Whole Number:<BR>
<asp:textbox id="txtAnswer" runat=server />
<asp:customvalidator
id="custom9"
controltovalidate="txtAnswer"
OnServerValidate="Answer_ServerValidation"
display="Dynamic"
font-name="Verdana"
font-bold="True"
font-size="10pt"
runat="server">
<BR>Incorrect answer please try again!
</asp:CustomValidator>
<BR><BR>
<asp:button
id="butOK"
text="OK"
type="Submit"
runat="server"
/>
</form>
</BODY>
</HTML>
|