Asp Control ASP.Net

  1. Home
  2. ASP.Net
  3. Asp Control
  4. Checkout wizard (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Checkout" %>



    Chapter 20 Checkout Wizard


    
    

                    Width="739px" >
            
                                    Title="Step 1: Contact Info">
                    Please enter your contact information:
                    
                      
                        
                        
                      
                      
                        
                        
                      
                      
                        
                        
                      
                    
First Name:
                                                            Height="22px" Width="200px">
                                                            ID="RequiredFieldValidator1" 
                                runat="server" 
                                ControlToValidate="txtFirstName"
                                ErrorMessage="First Name is required.">
                        
Last name:
                                                            Height="22px" Width="200px">
                                                            ID="RequiredFieldValidator2" 
                                runat="server" 
                                ControlToValidate="txtLastName"
                                ErrorMessage="Last Name is required.">
                        
Email:
                                                            Height="22px" Width="200px">
                                                            ID="RequiredFieldValidator3" 
                                runat="server" 
                                ControlToValidate="txtEmail"
                                ErrorMessage="Email is required.">
                        

                
                                     Title="Step 2: Shipping Method">
                    Please select a shipping method:
                                            Checked="True" GroupName="ShipVia" Text="UPS Ground" />
                    
                                            GroupName="ShipVia" Text="UPS Second Day" />
                    
                                            GroupName="ShipVia" Text="Federal Express Overnight" />
                    
                
                                    Title="Step 3: Credit Card Info">
                    Please enter your credit card information:
                    
                    
                      
                        
                        
                        
                      
                      
                        
                        
                                                            runat="server">
                                January
                                February
                                March
                                April
                                May
                                June
                                July
                                August
                                September
                                October
                                November
                                December
                             
                                                            runat="server">
                            
                        
                      
                    

                            
                                                                    runat="server">
                                                                            Value="VISA">Visa
                                    
                                        MasterCard
                                    
                                        American Express
                                
                            
                        		Card Number:
                                                            Height="22px" Width="262px">
                        
Expiration Date:
                        

                
            
        
    

    


File: Default.aspx.vb
Partial Class Checkout
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            wizCheckout.ActiveStepIndex = 0
            Dim iYear As Integer
            For iYear = DateTime.Now.Year To DateTime.Now.Year + 5
                ddlExpirationYear.Items.Add(iYear.ToString())
            Next
        End If
    End Sub
    Protected Sub wizCheckout_CancelButtonClick(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles wizCheckout.CancelButtonClick
        wizCheckout.ActiveStepIndex = 0
        txtFirstName.Text = ""
        txtLastName.Text = ""
        txtEmail.Text = ""
        rdoUPSGround.Checked = True
        rdoUPS2Day.Checked = False
        rdoFedEx.Checked = False
        lstCardType.SelectedIndex = 0
        txtCardNumber.Text = ""
        ddlExpirationMonth.SelectedIndex = 0
        ddlExpirationYear.SelectedIndex = 0
    End Sub
End Class