Box aggiornati tramite script

Ho inserito questo script, ma non capisco come mai vengono inseriti solo i gruppi CONSIGLIATI e I + VENDUTI forse non va bene?

www.mondoinformaticastore.it

lo script preso dal manuale è il seguente



' ========================================================================

' Questo script inserisce automaticamente in un gruppo di inserzioni

' i 10 articoli con data di creazione piu' recente

' ========================================================================

Option Explicit



Dim MyLayout, GruppoInserzioni, NomeGruppo, IdWebSite, AreaWeb

Dim Articolo, ContaInserzioni, MaxInserzioni, NewInserzione, Inserzione



' ======================================================

' PARAMETRI

IdWebSite = 1 ' Identificativo del sito web su cui

MaxInserzioni = 5 ' Numero massimo di articoli da inserire nel gruppo

NomeGruppo="INPRIMOPIANO"

NomeGruppo="CONSIGLIATI"

NomeGruppo="OFFERTE"

NomeGruppo="IVENDUTI"

' I nomi dei 4 gruppi di inserzioni sul template standard sono i seguenti

' 1° gruppo = 'INPRIMOPIANO'

' 2° gruppo = 'CONSIGLIATI'

' 3° gruppo = 'OFFERTE'

' 4° gruppo = 'IVENDUTI'

' ======================================================



If Not(Rdy.ReadyVersionGreaterOrEqualThan("12.6.0")) Then

    Rdy.ShowMessage "Per utilizzare questo script occorre Ready Pro v12.6.0 o superiore"

Else

    ' Svuota il gruppo di inserzioni

    Set MyLayout = Rdy.Website(IdWebSite).WebLayout

    Set GruppoInserzioni = MyLayout.SearchInsertions(NomeGruppo,0,False)

    For Each Inserzione In GruppoInserzioni

        Inserzione.Delete()

    Next

    

    ' Ricerca gli articoli in ordine di creazione

    ContaInserzioni = 0

    For Each Articolo In Rdy.SearchProducts("","Id DESC")

        If Articolo.CustomField(882)="S" Then ' Pubblico solo se l'articolo e' gia' configurato come 'pubblicato su web'

            ' Crea la nuova inserzione

            Set NewInserzione=MyLayout.CreateInsertion(NomeGruppo)

            Set NewInserzione.Product = Articolo

            If NewInserzione.Save() Then

                ContaInserzioni =ContaInserzioni +1

                ' Collega l'inserzione a tutte le aree web del sito

                For Each AreaWeb In MyLayout.WebAreas

                    NewInserzione.AddWebAreaLink(AreaWeb.Id)

                Next

            End If

        End If

        If ContaInserzioni>=MaxInserzioni Then

            Exit For

        End If

    Next

End If