Se vuoi utilizzare 2 colori, puoi fare così ad es:

do until...
if bg = "white" then bg = "black" else bg = "white"
loop

quella riga la metti nella IF dell'Area .. in questo modo si alterna il nero ed il bianco in fase di uscita (ovviamente devi mandare in output il valore di bg all'interno di un bgcolor di un td).