Private lngCampaignId As SqlDecimal |
Public Property CampaignId() As SqlDecimal |
Get |
Return lngCampaignId |
End Get |
Set(ByVal value As SqlDecimal) |
lngCampaignId = value |
End Set |
End Property |
|
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load |
Dim CCBll As New CampaignChildBLL |
Dim CampaignChildTable As New CampaignChild_DB.CampaignChildDataTable |
Dim CampaignChildRow As CampaignChild_DB.CampaignChildRow = Nothing |
Dim tab As RadTab |
Dim pageView As RadPageView |
|
If Not Page.IsPostBack Then |
'Retrieve child campaigns |
CampaignChildTable = CCBll.GetCampaignChildByCampaignId(CampaignId) |
|
For Each CampaignChildRow In CampaignChildTable |
tab = New RadTab |
tab.Text = CampaignChildRow.ChildCampaignName |
tab.CssClass = "normaltab" |
tab.SelectedCssClass = "selectedtab" |
tab.HoveredCssClass = "hovertab" |
|
RadTabStrip1.Tabs.Add(tab) |
|
pageView = New RadPageView |
pageView.ID = CampaignChildRow.ChildCampaignId |
pageView.CssClass = "pageview" |
RadMultiPage1.PageViews.Add(pageView) |
Next |
End If |
End Sub |
|
Protected Sub RadMultiPage1_PageViewCreated(ByVal sender As Object, ByVal e As RadMultiPageEventArgs) Handles RadMultiPage1.PageViewCreated |
Dim CampaignId As String = e.PageView.ID |
Dim c As New Campaign |
Dim cd As New CampaignData |
Dim success As Boolean |
Dim ctl As Control |
|
c.ID = CampaignId |
success = cd.RetrieveCampaign(c) |
|
'Load the appropriate template editing control |
Select Case c.CampaignTemplateId |
Case Campaign.CampaignTemplate.Feature |
ctl = LoadControl("ctlFeaturedResource.ascx") |
ctl.ID = CampaignId & "_ctl" |
CType(ctl, ctlFeaturedResource).CampaignId = CampaignId |
e.PageView.Controls.Add(ctl) |
|
Case Campaign.CampaignTemplate.List |
ctl = LoadControl("ctlFeaturedList.ascx") |
ctl.ID = CampaignId & "_ctl" |
CType(ctl, ctlFeaturedList).CampaignId = CampaignId |
e.PageView.Controls.Add(ctl) |
|
'Case Campaign.CampaignTemplate.PromoFeature |
' ctl = LoadControl("ctlPromoResource.ascx") |
' ctl.ID = CampaignId & "_ctl" |
' CType(ctl, ctlPromoResource).CampaignId = CampaignId |
' e.PageView.Controls.Add(ctl) |
|
Case Campaign.CampaignTemplate.Broadcast |
ctl = LoadControl("ctlTodaysBroadcast.ascx") |
ctl.ID = CampaignId & "_ctl" |
e.PageView.Controls.Add(ctl) |
|
Case Campaign.CampaignTemplate.Substitute |
ctl = LoadControl("ctlTodaysBroadcast.ascx") |
ctl.ID = CampaignId & "_ctl" |
e.PageView.Controls.Add(ctl) |
|
Case Campaign.CampaignTemplate.Odyssey |
ctl = LoadControl("ctlOdysseyBroadcast.ascx") |
ctl.ID = CampaignId & "_ctl" |
CType(ctl, ctlOdysseyBroadcast).CampaignId = CampaignId |
e.PageView.Controls.Add(ctl) |
|
Case Campaign.CampaignTemplate.Rotator |
ctl = LoadControl("ctlProductRotator.ascx") |
ctl.ID = CampaignId & "_ctl" |
CType(ctl, ctlProductRotator).CampaignId = CampaignId |
e.PageView.Controls.Add(ctl) |
End Select |
End Sub |
|