"
' 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
%>