Mega Code Archive
Validating a Percentage Using the CustomValidator Control (VB net)
<![CDATA[
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Answer_ServerValidation(source As object, E As ServerValidateEventArgs)
Dim TheNumber as Single
If Right(E.Value, 1) = "%" Then
TheNumber = Left(E.Value, Len(E.Value) - 1)
If TheNumber > 100 or TheNumber < 0 Then
E.IsValid = False
Else
E.IsValid = True
End If
Else
E.IsValid = False
End If
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Validating a Percentage Using the CustomValidator Control</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter a Percentage up to 100%:<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>
]]>