Skiftende farver i tabeller ?

Jeg glemte lige at nævne at det er en loop.....

Så det skal indsættes i en løkke.....

if color = "red" then
response.write "<td bgcolor=""red"">"
color = "yellow"
else
response.write "<td bgcolor=""yellow"">"
color = "red"
end if

FOR I = 0 TO 19
  IF I Mod 2 = 0 THEN
    Farve(gul)
  ELSE
    Farve(rød)
  END IF
NEXT

VEd at sætte "Mod" ind, får du resten af en heltals division.

Hvis du er ved celle 9 får du resultatet 1
Hvis du er ved celle 8 får du resultatet 0

På denne måde skifter farven hver gang der tegnes en ny celle

Kan i ikke vise hvor det skal indsættet ?

Farve1:#ffff00
Farve2:#cc0000



<%
  Do While Not Klasse.EOF %>
  <tr>
<td bgcolor="#EFEFEF" align="left" valign="middle" height="40"><small><a href="detail.asp?item=<%=Klasse("ItemNum")%>"><%=Klasse("Item")%></a></small><br><font face="Arial" size="2"><%=Klasse("Description") & " "%><%=Klasse("State")& " - "%></font></td>
    <td bgcolor="#EFEFEF" align="left" valign="middle" height="40"><small><%=Klasse("Price")%><img border="0" alt="E-mail" src="http://SERVER/testweb1/kob-salg/images/email.gif"></small></td>
    <td bgcolor="#EFEFEF" align="left" valign="middle" height="40"><small><%=Klasse("State")%><img border="0" alt="Se Deres Internet-side" src="http://SERVER/testweb1/kob-salg/images/egenside1.gif" width="18" height="22"></small></td>
  </tr>
<%
  Klasse.MoveNext     
  Loop
End If
%>


/mille

/Klyde lytter med...

Prøv med denne, den skulle meget gerne virke.

<%
Do While Not Klasse.EOF %>
<%
    If farve=1 Then
    baggrund="#ffff00"
    Farve= Farve + 1
    Else
    baggrund="#cc0000"
    farve=1
    End If
%>

<table>
  <tr>
    <td bgcolor="<%=baggrund%>" align="left" valign="middle" height="40"><small><a
    href="detail.asp?item=<%=Klasse("ItemNum")%>"><%=Klasse("Item")%></a></small><br>
    <font face="Arial" size="2"><%=Klasse("Description") & " "%><%=Klasse("State")& " - "%></font></td>
    <td bgcolor="<%=baggrund%>" align="left" valign="middle" height="40"><small><%=Klasse("Price")%><img
    border="0" alt="E-mail" src="%3chttp:/SERVER/testweb1/kob-salg/images/email.gif%3e"></small></td>
    <td bgcolor="<%=baggrund%>" align="left" valign="middle" height="40"><small><%=Klasse("State")%><img
    border="0" alt="Se Deres Internet-side"
    src="%3chttp:/SERVER/testweb1/kob-salg/images/egenside1.gif%3e" width="18" height="22"></small></td>
  </tr>
<%
Klasse.MoveNext
Loop
End If
%>

Hva bliver der snart delt nogen point ud???