Forskellige resultater med MoveNext

Hej allesammen

Jeg er ved at lave en memberlist på min side, men jeg ved ikke rigtigt hvordan jeg løser følgende:

##############################################
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" align="center" bgcolor="#666666"><b>Username</b></td>
<td width="25%" align="center" bgcolor="#666666"><b>Clan rank</b></td>
<td width="25%" align="center" bgcolor="#666666"><b>Lvl</b></td>
<td width="25%" align="center" bgcolor="#666666"><b>Unknown</b></td>
</tr>
<%
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Users Order By ClanRank DESC"
    rs.Open strSQL, Conn, 1, 3

Dim ClanRanks, arrRank
ClanRanks = " , Trial, Recruit, Corporal, Sergeant, Lieutenant, Captain, General, Clan Leader"
arrRank = Split(ClanRanks,",")

If rs.EOF Then
Response.Write "There are no members."
Else
Do until rs.EOF
%>
<tr>
<td width="25%" align="center" bgcolor="#999999"><%=rs("Username")%></td>
<td width="25%" align="center" bgcolor="#999999"><%=arrRank(rs("ClanRank"))%></td>
<td width="25%" align="center" bgcolor="#999999"><%=rs("Level")%></td>
<td width="25%" align="center" bgcolor="#999999">Unknown</td>
</tr>
# Her er det at jeg godt vil have den næste member på listen til at have baggrundsfarven #666666 i tabellen #
<%
rs.MoveNext
Loop
End If
%>
</table>
##############################################

Hvordan gør jeg det?