Si lo que quieres es pintar una fila de cada color, quizas esto te sirva:
Dim strBGColor
strBGColor = "#EEEEEE"
Do While NOT
ALGO '(EOF en base de datos, o uBound en un array)
If strBGColor = "#EEEEEE" Then strBGColor = "#D7D7D7" Else strBGColor = "#EEEEEE"
Response.Write ("<tr bgcolor='" & Cstr(strBGColor) & "'>")
Loop
Sino creo que el metodo que estas utilizando esta bien...
