hjælp

Hej E

Nu har jeg kæmpet med dette i meget lang tid. Er her en som kan hjælpe med at få den til at skifte baggrunds farve i hver anden table?

<%
strconnect="Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("../MCSD.mdb")
SET DbObj=Server.CreateObject ("ADODB.Connection")
DbObj.Open strconnect
SET tabel=DbObj.Execute("SELECT * FROM Ordbog ORDER BY Engelsk")
%>
  <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">
  <% if tabel.EOF then %>
  Der er endnu ikke skrevet nogle indlæg.<br>
  <% else %>
  <% while not tabel.EOF %>
  <%
  counter = counter + 1
If counter mod 2 = 0 then
    color= "E8EEF8"
    Else
    color = "BCCCDD"
End If

    Output = Output & "<tr bgcolor='" & color & "'>"
%>
  </font>
<table width="700" border="0" cellpadding="1" cellspacing="1" bgcolor="& color &">
  <tr>
    <td valign="top" width="150"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=tabel("Engelsk")%></font></td>
    <td valign="top" width="150"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=tabel("Dansk")%></font></td>
    <td valign="top" width="400"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=replace(tabel("Beskrivelse"), VbCrLf, "<br>")%></font></td>
  </tr>
</table>

  <%tabel.movenext %>
  <% wend %>
  <%end if%>
  <%tabel.close%>
  <%DbObj.close%>