Asp Control ASP.Net

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



    Checkout MultiView


    
    

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

                
                                    CommandName="NextView" Text="Next" />
            
            
                
                    Please select a shipping method:
                                            Runat="server" 
                        Text="UPS Ground" 
                        GroupName="ShipVia"
                        Checked="True" />
                    
                                            Runat="server" 
                        Text="UPS Second Day" 
                        GroupName="ShipVia" />
                    
                                            Text="Federal Express Overnight" GroupName="ShipVia" />
                    
                
                                    CommandName="PrevView" Text="Previous" />
                                    CommandName="NextView" Text="Next" />
            
            
                
                    Please enter your credit card information:
                    
                    
                      
                        
                        
                        
                      
                      
                        
                        
                      
                    
                                    Runat="server">
                                                                            Selected="True">Visa
                                    
                                        MasterCard
                                    
                                        American Express
                                
                        		Card Number:                                Height="22px" Width="262px">
                        
Expiration Date:                                Runat="server">
                                January
                                February
                                March
                                April
                                May
                                June
                                July
                                August
                                September
                                October
                                November
                                December
                             
                                                            Runat="server">
                        

                    
                                            CommandName="PrevView" Text="Previous" />
                                            Height="24px" Text="Finish"
                        CommandName="NextView" />
                
            
            
                Here is the data you entered:
                                    Height="182px" TextMode="MultiLine" Width="346px">
                
            
        

    


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
            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 btnFinish_Click(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles btnFinish.Click
        Me.DisplayMessage()
    End Sub
    Protected Sub DisplayMessage()
        Dim sShipVia As String = ""
        If (rdoUPSGround.Checked) Then
            sShipVia = "UPSG"
        ElseIf (rdoUPS2Day.Checked) Then
            sShipVia = "UPS2D"
        ElseIf (rdoFedEx.Checked) Then
            sShipVia = "FEDEX"
        End If
        Dim sMessage As String
        sMessage = _
            "Contact info" & ControlChars.CrLf & _
            "    First name: " & txtFirstName.Text & ControlChars.CrLf & _
            "    Last name: " & txtLastName.Text & ControlChars.CrLf & _
            "    Email: " & txtEmail.Text & ControlChars.CrLf & _
            "Shipping method" & ControlChars.CrLf & _
            "    Ship via: " & sShipVia & ControlChars.CrLf & _
            "Credit card info" & ControlChars.CrLf & _
            "    Type: " & listCardType.SelectedValue & ControlChars.CrLf & _
            "    Number: " & txtCardNumber.Text & ControlChars.CrLf & _
            "    Expiration date: " & ddlExpirationMonth.SelectedValue & "/" & _
                                      ddlExpirationYear.SelectedValue
        txtMessage.Text = sMessage
    End Sub
End Class