Public Class MainForm
    Inherits System.Web.UI.Page
    Private selectedCustomer As New Customer

    Public Class Customer
        Private cID, cName, cAddress, cCity, cState, cZipCode, cPhone, cEmail As String
        Friend Property CustID As String
            Get
                Return cID
            End Get
            Set(ByVal value As String)
                cID = value
            End Set
        End Property
        Friend Property CustName As String
            Get
                Return cName
            End Get
            Set(ByVal value As String)
                cName = value
            End Set
        End Property
        Friend Property CustAddress As String
            Get
                Return cAddress
            End Get
            Set(ByVal value As String)
                cAddress = value
            End Set
        End Property
        Friend Property CustCity As String
            Get
                Return cCity
            End Get
            Set(ByVal value As String)
                cCity = value
            End Set
        End Property
        Friend Property CustState As String
            Get
                Return cState
            End Get
            Set(ByVal value As String)
                cState = value
            End Set
        End Property
        Friend Property CustZipCode As String
            Get
                Return cZipCode
            End Get
            Set(ByVal value As String)
                cZipCode = value
            End Set
        End Property
        Friend Property CustPhone As String
            Get
                Return cPhone
            End Get
            Set(ByVal value As String)
                cPhone = value
            End Set
        End Property
        Friend Property CustEmail As String
            Get
                Return cEmail
            End Get
            Set(ByVal value As String)
                cEmail = value
            End Set
        End Property

        Public Sub New()
        End Sub
    End Class

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ddlCustomer.DataBind()
        End If
        aSelectedCustomer = selectedCustomer()

        displayCustomer()
    End Sub
End Class