New Post: SEOPageTitle

Oh!!..not reading properly.....sorry you mean the Product SEOTitle.....this is still used, but only in certain situations...and remmeebr all this is cached, so you may not see changes you make, unless your in debug mode, or clear the cache.

                strText = GetStoreSettingText(ProductListInfo.PortalID, "ProductPageName.template", ProductListInfo.Lang)
                If strText = "" Then
                    'SEOPageTitle not yet in use.
                    'strText = ProductListInfo.SEOPageTitle
                    strText = ProductListInfo.ProductName
                    strText = Replace(strText, "[TAG:PORTALNAME]", PortalName)
                Else
                    'backward compatiblity TAG tokens
                    strText = Replace(strText, "[TAG:PRODUCTREF]", ProductListInfo.ProductRef)
                    strText = Replace(strText, "[TAG:PRODUCTNAME]", ProductListInfo.ProductName)
                    strText = Replace(strText, "[TAG:MANUFACTURER]", ProductListInfo.Manufacturer)
                    strText = Replace(strText, "[TAG:SUMMARY]", ProductListInfo.Summary)
                    strText = Replace(strText, "[TAG:TAGWORDS]", ProductListInfo.TagWords)
                    strText = Replace(strText, "[TAG:SEONAME]", ProductListInfo.SEOName)
                    strText = Replace(strText, "[TAG:CATEGORYNAME]", CategoryName)
                    strText = Replace(strText, "[TAG:PORTALNAME]", PortalName)

                    strText = Replace(strText, "[TAG:PORTALNAME]", PortalName)
                    If ProductListInfo.SEOPageTitle = "" Then
                        Dim objTRepl As New TokenStoreReplace(ProductListInfo)
                        strText = objTRepl.DoTokenReplace(strText)
                    Else
                        strText = ProductListInfo.SEOPageTitle
                    End If
                End If