Loop all'interno di estrazione

[semolino]

Ho questo codice:

 Dim strColori 
		  strColori = Split(objTapRs("Colore"), ",")
		  for k = 0 to uBound(strColori)
		  
	Do Until objTapRs.EOF 'oppure While Not objTapRs.EOF
	%>	

<table width="500" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="53" height="53" rowspan="4" class="contorno">[img]<%=DirImage & objTapRs([/img]" width="60" height="60" alt="<%= objTapRs("Foto1")%>"></td>
    <td><span class="style5">codice prodotto: <%= UCase(objTapRs("Cod_Art")) %></span></td>
    <td></td>
  </tr>
  <tr>
    <td class="style5">tipologia: <%= objTapRs("Categoria") %></td>
    <td></td>
  </tr>
  <tr>
    <td class="style5">dimensioni: <%= objTapRs("Dimensione") %></td>
    <td></td>
  </tr>
  <tr>
  		  
    <td class="style5">colore: <%= UCase(strColori(k)) %></td>
    <td class="style3">
	<form class="FormACapo" action="scheda_prodotto.asp" method="post" name="cerca" id="cercx">
		<input name="action" type="hidden" id="action" value="scheda" />	
		<input name="id_prod" type="hidden" id="id_prod" value="<%= objTapRs("id_prod")%>" />
		&gt;&gt; scheda prodotto
	</form></td>
  </tr>
  <tr>
    <td height="5" colspan="3" class="tratteggio"></td>
  </tr>
</table>
<%
	 objTapRs.MoveNext
	 Loop
	  Next

La variabile "Colore" è inserita nel database cosi:
rosso,verde o
grigio o
blu,nero,viola

Quando estraggo i record vorrei che quando stampo il colore mi venissero fuori tutti i colori senza la ",".
In questo caso però se estraggo due record che hanno uno 2 colori e l'altro 3 colori.
Ma in tutti e due mi si stampa solo rosso.
Dove sto sbagliando?

[semolino]

Ce l'ho fatta ragazzi grazie e scusate per il post