FAQ - färger

följde erat exempel i FAQ, men det fungerar inte. Vad har jag gjort för fel?

den visar resultatet, men inte några färger där inte.

<%

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/databas/medlems_register.mdb")
	SQLStmt = "SELECT top 10 user_name, datum from medlems_register order by id desc"
	Set RS = Connection.Execute(SQLStmt)

%>
<TABLE>
<%
DO UNTIL RS.EOF
counter = counter + 1
If counter Mod 2 = 0 then
color = "CCCC99"
Else
color = "CCCC66"
End If
%>
<TR><TDcolor="<%=color%>"><%=RS("user_name")%></TR></TD>
<%
RS.MOVENEXT
LOOP
RS.Close 
Connection.Close
%>
</TABLE>

------------------
Micke & Annas Sajt
micke@micke-anna.nu