Sub Button_Click( s As Object, e As EventArgs )
If IsValid Then
Response.Redirect( "ThankYou.aspx" )
End If
End Sub
Sub CustomValidator_ServerValidate( s As O
Sub Page_Load
valgMeetingDate.MinimumValue = Now.Date
valgMeetingDate.MaximumValue = Now.Date.AddMonths( 3 )
End Sub
Sub Button_Click( s As Object, e As EventArgs
Public Word As String
Sub Repeat( intNumTimes As Integer )
Dim intCounter As Integer
For intCounter = 0 to intNumTimes - 1
Response.Write( Word )
Next
End
Sub Page_Load
Dim strFeatured As String
Dim RanNum As New Random
Dim ctlControl As Control
strFeatured = "FeaturedProduct" & RanNum.Next( 1, 3 ) & ".ascx"
c
