Problem med"varannanradsfärg"

Tidigare så fixade jag varannanradsfärg så här:

j = j + 1
     	    if j mod 2 then
     	       rowColor = "#FFF7F2"
     	    else
     	       rowColor = "#FBE2D3"

end if
 %>
    <TR bgcolor = "<%= rowColor %>">'osv

innan denna koden, så är j=0
Denna kod fungerar kanonbra, men eftersom den är väldigt ofta
förekommande, så har jag nu lagt den i en sub, som jag inkludera
i de sidor där den behövs.
Så här ser det ut:

Sub ColorRow(iCount,firstColor,secendColor)
iCount = iCount + 1
    if iCount mod 2 then
       rowColor = firstColor
    else
       rowColor = secendColor
    end if
End Sub
'och jag kallar på den så här:
Call ColorRow(j,"#FFFFFF","#F4F1F1")
   %>
    <TR bgcolor = "<%= rowColor %>">

Problemet är att första raden inte får någon av färgerna.
När jag jag tittar på den via "visa källa" så på första "varvet" är
rowColor tomt. Därefte så fungerar det bra.

Någon som har en smart idé om varför den uppför sig så här?

:q