Alternating table background colors

[Newton]

I know how to alternate table row bgcolor by odd/even method but what I am
trying to acheive is alternate colors by the date value in the database so
that each row with the same date value has the same bgcolor. There maybe 3
red rows for 1st date, then 2 blue rows for 2nd date, then 6 red rows for
next date etc.
I have no idea where to start, any suggestions?

 

[Roji. P. Thomas]

Dim curdate
Dim prevdate
Dim bgcolor
If Not rs.eof
curdate = rs("datecolumn")
prevdate = curdate
while not rs.eof
curdate = rs("datecolumn")
If curdate <> prevdate Then
If bgcolor = "blue" Then
bgcolor = "red"
else
bgcolor = "blue"
end if
prevdate = curdate
End If

'Process record
Wend

Untested, Ofcourse