Visualizza solo le scadenze clienti o solo quelle fornitori

Questo script filtro visualizza solo le scadenze collegate a delle anagrafiche clienti e contatti:

Option Explicit
 
Select Case DueDate.Anag.AnagType
    Case 1,5,6,9
        ' 1 = Clienti
        ' 5 = Contatti
        ' 6 = Contatti 2
        ' 9 = Contatti 3
        Response.Write("SHOW")
    Case Else
        Response.Write("HIDE")
End Select
 

e questo invece per visualizzare solo le scadenze collegate a delle anagrafiche fornitore (e vettori e agenti che sono comunque considerati fornitori):

 
Option Explicit
 
Select Case DueDate.Anag.AnagType
    Case 2,3,4
        ' 2 = Fornitori
        ' 3 = Vettori
        ' 4 = Agenti
        Response.Write("SHOW")
    Case Else
        Response.Write("HIDE")
End Select