questo codice mi dovrebbe alternare 4 colori sulle celle ma c'è qualcosa che non va mi alterna solo due colori.. dove sbaglio??

codice:
Dim iPageSize'Numero di record da visualizzare per ogni pagina
Dim iPageCount'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent   'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim iRecordsShown 'Variabile usata per definire i record mostrati
dim acolori
	dim col
	dim col1
	dim bgcolor
	dim bgcolor1
	dim acolori1
	dim url
iPageSize = 10
If Request.QueryString("page") = "" Then 
                iPageCurrent = 1 
Else 
                iPageCurrent = CInt(Request.QueryString("page")) 
End If 
If Request.QueryString("order") = "" Then 
                strOrderBy = "id" 
Else 
                strOrderBy = Request.QueryString("order") 
End If
dim titolo
dim rs
dim sql
titolo=request.querystring("titolo") 
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from listaaffiliazioni  where codcat=1 order by id DESC"
RS.Open sql, dcnDB, adOpenKeyset 
RS.PageSize = iPageSize 
RS.CacheSize = iPageSize 
iPageCount = RS.PageCount 
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount 
If iPageCurrent < 1 Then iPageCurrent = 1 
If iPageCount = 0 Then
Response.Write("Nessun record visualizzato!")
Else 
	RS.AbsolutePage = iPageCurrent 
iRecordsShown = 0 
	
	'alterna i colori delle celle
	aColori = Split("#D9ECFF,#E8E8E8",",")
	aColori1 = Split("#BBDDFF,#D7D7D7",",")
	col=0
	col1=0
	Do While iRecordsShown < iPageSize And Not RS.EOF
	bgcolor = aColori(col)
	bgcolor1 = acolori1(col)
	titolo =rs("titolo")
 	%>
       
 <tr>
	<td bgcolor="<%=bgcolor%>" width="321" height="17"  class="fontsize">
		<td bgcolor="<%=bgcolor%>" width="104" height="17" >
	<td bgcolor="<%=bgcolor1%>" width="425" height="23" colspan="2" class="fontsize">
	<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
      <td width="100%" bgcolor="#336699></td>
  </tr>
</table></td> </td> </tr></tr>
<tr>
	<td bgcolor="#FFFFFF" width="425" height="10" colspan="2"></td></tr>
	
	<%
	
	col=col+1
	if col>UBound(aColori) then col=0
	col1=col+1
	if col1>UBound(aColori1) then col1=0
	col=col+1
	if col>UBound(aColori) then col=0
	col1=col+1
	if col1>UBound(aColori1) then col1=0
	iRecordsShown = iRecordsShown + 1
	RS.MoveNext
	Loop 
	End If 
	RS.Close 
	Set RS = Nothing 
	%>
:master: