problema colori celle alternate

[slay]

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

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:

[Roby_72]

Perché un altro thread per lo stesso argomento?

Roby

[slay]

volevo cambiare il titolo perchè il titolo di prima era la paginazione il problema ora sta nel colore alternato delle celle... se vuoi cancella l'altro 3d ... dimmi se ho sbagliato a postare..

[slay]

non c'è qualche can guro... cioè guru di asp che mi dia una mano

[slay]

[slay]