<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Date_ServerValidation(source As object, E As ServerValidateEventArgs)
If IsDate(E.Value) Then
If Year(E.Value) = Year(Today) Then
E.IsValid = True
Else
E.IsValid = False
End If
Else
E.IsValid = False
End If
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Validating for a Date in the Current Year Using the CustomValidator Control</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter a date in the current year:<BR>
<asp:textbox
id="txtDate"
runat=server
/>
<asp:customvalidator
id="customDate"
controltovalidate="txtDate"
onservervalidate="Date_ServerValidation"
display="Dynamic"
font-name="Verdana"
font-bold="True"
font-size="10pt"
runat="server">
You must enter a date in the current year!
</asp:CustomValidator>
<BR><BR>
<asp:button
id="butOK"
text="OK"
type="Submit"
onclick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>