Unnamed

    Private Sub GetBundleDetails()
        ' Create new SQLConnection object
        Dim PackageID As Integer = m_Session.DSLSite.BundleID

        Dim conn As SqlConnection = ConnectionFactory.CreateConnection()
        Dim oCmd As New SqlCommand
        Dim oAdapter As New SqlDataAdapter

        dtProducts = New DataTable

        oCmd.CommandText = "USE VGE; SELECT * FROM CovadProducts WHERE Bundle_ID=@Bundle_ID ORDER BY Product_Name"
        oCmd.Parameters.Add("@Bundle_ID", PackageID)
        oCmd.CommandType = CommandType.Text
        oCmd.Connection = conn

        oAdapter.SelectCommand = oCmd

        oAdapter.Fill(dtProducts)
        'Since we will use the bundle options in the next page, store them in the session temporarily
        Session.Add("Products", dtProducts)
    End Sub