Visualizza solo gli articoli appartenenti una specifica categoria

Questo script filtro, visualizza solo gli articoli che appartengono alla categoria con codice 100

If Product.ProdCategory.Id = 100 Then
     Response.Write("SHOW")
Else
     Response.Write("HIDE")
End If

Questo script filtro, visualizza solo gli articoli che appartengono alla categoria con codice 100, considerando anche le categorie aggiuntive

Option Explicit
 
Dim ok
Dim Categoria
 
ok=false
For Each Categoria In Product.ProdCategories
    If Categoria.Id=100 Then
        ok=true
        Exit For
    End If
Next
If ok then
    Response.Write("SHOW")
Else
    Response.Write("HIDE")
End If