<%Option Explicit%> <% Response.Expires = -5 Response.ExpiresAbsolute=DateAdd("yyyy", -10, Date) Response.addHeader "pragma","no-cache" Response.addHeader "cache-control","private" Response.CacheControl = "no-cache" Response.CacheControl = "private" %> <% Call PagePrep() %> <%=sPageTitle%>
<% If IsSmartPhone() Then BuildSmartPhoneHeader(sSmartPhoneHeaderText) Call BuildMidCol() ElseIf ret_blnContentGenius Then Call BuildMidCol() Else Call BuildHeaderDiv() Response.Write "
" Response.Write "
" Call BuildMidCol() ' If ret_blnWideFormat Then ' Call BuildLeftColDivOverride("leftColWideFmt") ' Else ' Call BuildLeftColDiv() ' Call BuildRightColDiv() ' End If Call BuildLeftColDiv() Call BuildThirdCol() Call BuildFourthColDiv() Response.Write "
" Call BuildFooterDiv() Response.Write "
" & vbCrLf End If %>
<% Dim sSmartPhoneHeaderText, sPageTitle Dim ClusterPageID Dim Clusters Dim Cluster Dim ClusterPage Dim objPGAdServer Function PagePrep() ClusterPageID = Request.QueryString("cpid") ' check QS params If Not IsNumeric(ClusterPageID) Then Response.End Set Clusters = Server.CreateObject("LNPromoGenius.Clusters") Clusters.MPDConnString = PGConnStr Clusters.WGConnString = WGConnStr Set Cluster = Clusters.Cluster Set ClusterPage = Cluster.Page(ClusterPageID) sPageTitle = ClusterPage.Title End Function Function BuildMidCol() ' If ret_blnWideFormat Then ' Response.Write "
" ' Else Response.Write "
" ' End If ' Force header image (it is part of the paid advertisement) ret_blnHeaderImage = True Call DisplaySpecificImage(ClusterPage.HeaderImage, "", "") If ret_blnLNAV Then ' add some extra uniform padding if we have a left menu so that form doesn't butt up against it Response.Write "
" Else Response.Write "
" End If Response.Write "
" & ClusterPage.Title & "

" Response.Write ClusterPage.Body(ret_store_id) Response.Write "
" ' Margin Response.Write "
" End Function Function BuildThirdCol() Response.Write "
" Call GetRightHandModules() Response.Write "
" End Function Function GetRightHandModules() Dim html, PromoModule, BannerAd Dim bIncludePromoModule : bIncludePromoModule = True Dim bSecureRequest : bSecureRequest = False Dim bIncludeBrandModuleLink If SupportsOnlineShopping Or SupportsProductCatalog Then bIncludeBrandModuleLink = True Else ' no brand module for basic sites bIncludeBrandModuleLink = False End If html = Cluster.ModulesHTML(ret_store_id, ret_oid, Request.ServerVariables("SERVER_NAME"), bIncludePromoModule, mscsShopperID, bSecureRequest, bIncludeBrandModuleLink) ' is there a promotion module? set PromoModule = Cluster.PromoModule() If IsObject(PromoModule) Then If Not PromoModule Is Nothing Then If PromoModule.PromotionID > 0 Then Set objPGAdServer = Server.CreateObject("LNPromoGenius.AdServer") Call objPGAdServer.Init(PGConnStr, SOURCE_WEBGENIUS, ret_oid, mscsShopperID) Set BannerAd = objPGAdServer.GetB2CTileForCluster(PromoModule.PromotionID, ret_store_id) If IsObject(BannerAd) Then If Not BannerAd Is Nothing Then html = Replace(html, "", BannerAd.AdHTML(SOURCE_WEBGENIUS, ret_oid, mscsShopperID)) End If End If End If End If End If Response.Write html End Function ' Insert tracking assest for PG Ads If Not ClusterPage Is Nothing Then Response.Write ("
" ) Response.Write ClusterPage.GetPixelCodeIFrame(Request.ServerVariables("SERVER_NAME"), SOURCE_WEBGENIUS, ret_oid, mscsShopperID) Response.Write ("
" & vbCrLf) Set ClusterPage = Nothing End If %>