Hjärnsläpp

Har följande kod:

<%

	Dim countColor, bgColor, fmCnt, strForums, testOne, testTwo

	mySQL = "SELECT * FROM forumTable ORDER BY orderBy ASC, forumTitle ASC"
	Set objRS = objConn.Execute(mySQL)

	countColor = 0

	Do While Not objRS.Eof

	countColor = countColor + 1	

	If countColor mod 2 = 0 Then
		bgColor = "#cdcdcd"
	Else
		bgColor = "#efefef"
	End If

	If countColor = 4 Then
		testOne = "rad1"
		testTwo = ""
	ElseIf countColor = 7 Then
		testOne = ""                           
		testTwo = "rad2"
	End If

	strForums = strForums & testOne & testTwo & "raden"

	objRS.MoveNext
	Loop

%>

Det jag vill med den är att den loopar ut lite info ur databasen, och sedan på den fjärde loopen så skall den skriva en annan sak likaså på den sjunde loopen.

Men det blir så här istället:

raden
raden
raden
rad1
raden
rad1
raden
rad1
raden
rad2
raden

Varför skriver den ut rad1 tre ggr?