e invece con questo come si cambia colore con href?

codice:
Dim Riga, bg
									Riga = Riga + 1
									If Riga Mod 2 = 0 then
										bg = "#E4E4E4"
										txcol = "#000000"
									Else
										bg = "#ccccff"	
										txcol = "#FFFFFF"
									End if	
Risultato = Risultato & "<tr bgcolor = " & bg & " ><a href=" & url & ""& Rs(""& tab & "") & " target='_new'><td><font color="& txcol &" size='4'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Risultato = Risultato & "<td><font color="& txcol &" size ='4'>" & Rs("num_badge")  & "</font></td>"
Grazie