' ASPX_Validation_Controls_Response_Redirect.vb.txt
' Writen by Dan Garlen dan.g@kgsystems.com 2/22/04
'
' Add two blank WebForms to project 
'    "ValidationControls.aspx" & 
'    "ShowValid.aspx"
'
'    Set ValidationControls.aspx as Startup Form

' Replace/Paste as follows into "ValidationControls.aspx"

Public Class ValidationControls
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents rfvName As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtName As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents txtAge As System.Web.UI.WebControls.TextBox
    Protected WithEvents rvAge As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents txtPassword1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPassword2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfvPassword1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents rfvPassword2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents cvPassword As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents txtDOB As System.Web.UI.WebControls.TextBox
    Protected WithEvents cvDOB As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents rfvDOB As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents lblResults As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Not Page.IsPostBack Then
            With rfvName
                .ErrorMessage = "Name Required"
                .Text = "*" ' Set Text property when using ValidationSummary Control
                .ControlToValidate = "txtName"
            End With
            With rvAge
                .ErrorMessage = "Age out of range"
                .Text = "*"
                .ControlToValidate = "txtAge"
                .MinimumValue = 0
                .MaximumValue = 140
                .Type = ValidationDataType.Integer
            End With
            With rfvPassword1
                .ErrorMessage = "Password Required"
                .Text = "*"
                .ControlToValidate = "txtPassword1"
            End With
            With rfvPassword2
                .ErrorMessage = "Password Required"
                .Text = "*"
                .ControlToValidate = "txtPassword1"
            End With
            With cvPassword
                .ErrorMessage = "Passwords not the same"
                .Text = "*"
                .ControlToCompare = "txtPassword1"
                .ControlToValidate = "txtPassword2"
                .Type = ValidationDataType.String
            End With
            With cvDOB
                .ErrorMessage = "Invalid Date of Birth"
                .Text = "*"
                .ControlToValidate = "txtDOB"
                .Type = ValidationDataType.Date
                .Operator = ValidationCompareOperator.DataTypeCheck
            End With
            With rfvDOB
                .ErrorMessage = "Date of Birth Required"
                .Text = "*"
                .ControlToValidate = "txtDOB"
            End With
        Else

        End If
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        If Page.IsValid Then
            Dim url As String = "ShowValid.ASPX?Name=" + txtName.Text + "&DOB=" + txtDOB.Text
            Response.Redirect(url)
        End If
    End Sub
End Class

' ======================================================================================================

' Switch to HTML view and replace the body section with the following

<body>
<form id="Form1" method="post" runat="server"><P>
Name:<asp:TextBox id="txtName" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvName" runat="server" ErrorMessage="RFV"></asp:RequiredFieldValidator></P>
<P>Age(optional):<asp:TextBox id="txtAge" runat="server"></asp:TextBox>
<asp:RangeValidator id="rvAge" runat="server" ErrorMessage="RV"></asp:RangeValidator></P>
<P>Password:<asp:TextBox id="txtPassword1" runat="server"></asp:TextBox>&nbsp;
<asp:RequiredFieldValidator id="rfvPassword1" runat="server" ErrorMessage="rfv"></asp:RequiredFieldValidator>
Confirm:<asp:TextBox id="txtPassword2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvPassword2" runat="server" ErrorMessage="rfv"></asp:RequiredFieldValidator>
<asp:CompareValidator id="cvPassword" runat="server" ErrorMessage="cv"></asp:CompareValidator></P><P>
DOB:<asp:TextBox id="txtDOB" runat="server"></asp:TextBox>
<asp:CompareValidator id="cvDOB" runat="server" ErrorMessage="cv"></asp:CompareValidator>
<asp:RequiredFieldValidator id="rfvDOB" runat="server" ErrorMessage="rfv"></asp:RequiredFieldValidator></P><P>
<asp:Button id="btnSubmit" runat="server" Text="Submit"></asp:Button>
<asp:Label id="lblResults" runat="server"></asp:Label>
<asp:ValidationSummary id="ValidationSummary1" runat="server"></asp:ValidationSummary></P>
</form>
</body>
</HTML>


' ======================================================================================================

' Replace/Paste as follows into "ShowValid.aspx":


Public Class ShowValid_ASPX
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblWelcome As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bolOK As Boolean = True
        Dim strName As String = Request.QueryString("Name")
        Dim strDOB As String = Request.QueryString("DOB")
        If strName Is Nothing Then bolOK = False
        If strDOB Is Nothing Then bolOK = False

        If (bolOK) Then
            lblWelcome.Text = "Welcome: <B>" + strName + "</B></BR>Born: " + strDOB
        Else
            lblWelcome.Text = "Invalid Access"
        End If

    End Sub

End Class

' ======================================================================================================

' Change to HTML view and replace the body section with the following:

	<body>
		<form id="Form1" method="post" runat="server">
			<P><asp:Label id="lblWelcome" runat="server"></asp:Label></P>
			<P><A href="ValidationControls.aspx">Return to ValidationControls</A></P>
		</form>
	</body>