to farver tabeller ved udskrivning af resultset

Jeg forsøger at udskrive et resultset i en tabel, hvor hver anden tabel er i en gråtone, så jeg nemmere kan se hvor hver tabel skiller, men jeg kan ikke få lortet til at virke :-)

<div align="center">
<table border="0" width="600" height="12">
    <%Do While Not bs.EOF%>
    <%
    strPers = "SELECT Name, id FROM persondata WHERE ID ="& bs("username")
    Set gs = myConnPers.Execute(strPers)
    %>
    <tr>
      <td width="188" height="1"><font face="Verdana" size="1"><%=bs("title")%></font></td>
      <td width="227" height="1"><font face="Verdana" size="1"><%= Replace(left(bs("Nyhed"),100),vbCrLf,"")%></font></td>
      <td width="155" height="1"><font face="Verdana" size="1"><a href="vis_data_alt.asp?id=<%=gs("ID")%>" onMouseOver="window.status='Mere Info om <%=gs("Name")%>'; return true;" onMouseOut="window.status=''" onClick="window.status=''"><%=gs("Name")%></a></font></td>
    </tr>
    <%
    bs.MoveNext
    Set gs2 = myConnPers.Execute(strPers)
    %>
    <tr>
      <td width="188" height="1" bgcolor="#EEEEEE"><font face="Verdana" size="1"><%=bs("title")%></font></td>
      <td width="227" height="1" bgcolor="#EEEEEE"><font face="Verdana" size="1"><%= Replace(left(bs("Nyhed"),100),vbCrLf,"")%></font></td>
      <td width="155" height="1" bgcolor="#EEEEEE"><font face="Verdana" size="1"><a href="vis_data_alt.asp?id=<%=gs2("ID")%>" onMouseOver="window.status='Mere Info om <%=gs2("Name")%>'; return true;" onMouseOut="window.status=''" onClick="window.status=''"><%=gs2("Name")%></a></font></td>
    </tr>
    <%bs.MoveNext
Loop%>
  </table>
</div>