Celle farve skift vha. ASP

Jeg vil gerne have at hver anden af mine celler bliver skifter farve fra hvid til rød. Jeg har dog ingen anelse om hvorledes jeg bør gribe dette an uden at det går ud over det paging script der er i. Er der nogle af jer der måske kunne hjælpe mig lidt? Her er kildekoden:

        <%
       
            intPage = Request("page")
            If isNumeric(intPage) = False Or intPage < 1 Then
                intPage = 1
            End If
           
            Set rs = Server.CreateObject("ADODB.RecordSet")
            strSQL = "Select  * From nyhed order by id desc"
            strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/system.mdb")
            rs.Open strSQL, strDSN, 1
               
                if rs.eof then
                response.write "database is empty"
                end if
               
                If Not (rs.BOF Or rs.EOF) Then
                rs.PageSize = 7
                rs.AbsolutePage = intPage
                intRecCount = rs.PageSize
                intPageCount = rs.PageCount
                    intPage = Request("page")
            If isNumeric(intPage) = False Or intPage < 1 Then
                intPage = 1
            End If
           
                Do While Not rs.EOF And intRecCount > 0           
        %>
                    <tr>
                      <td height="50" width="50" valign="top">
                        <a href="index.asp?method=load&nav=main&id=<% response.write "" & rs("id") & "" %>">
                            <img src="<% Response.Write replace("" & rs("billede"),"../","") & "" %>" width="50" height="50" style="border: 1px solid black">
                        </a>
                      </td>
                     
                      <td width="100%" valign="top"> <a href="index.asp?method=load&nav=main&id=<% response.write "" & rs("id") & "" %>" class=""titel"">
           
                    <%
                Response.Write "<b><u>" & rs("emne") & "</u></b></a>"
                Response.Write " | by " & rs("navn") & "<br>"
                    %>
           
                        <a href="index.asp?method=load&nav=main&id=<% response.write "" & rs("id") & "" %>" class="gentiny">
           
        <%
            Response.Write "" & rs("subtitel") & "..<br>"
            Response.Write "" & rs("dato") & " "
            Response.Write "" & rs("tid") & "</a></td>"

            intRecCount = intRecCount - 1
            rs.MoveNext
            Loop
            End If
            rs.Close
            Set rs = Nothing
        %>
                      </td>
                    </tr>
                    <tr>
                      <td colspan="2">
                        <center>
        <%
            Response.Write "page "
            If Clng(intPage) > 1 Then
                Response.Write "<a href=index.asp?method=newsarchive&nav=archive&page=" & intPage - 1 & ">&lt;&lt;</a> "
            Else
                Response.Write "&lt;&lt; "
            End If

            For intNum = 1 To intPageCount
                Response.Write "<a href=index.asp?method=newsarchive&nav=archive&page=" & intNum & ">" & intNum & "</a> "
            Next
                       
            Response.Write "&nbsp;"
           
            If Clng(intPage) < Clng(intPageCount) Then
                Response.Write "<a href=index.asp?method=newsarchive&nav=archive&page=" & intPage + 1 & ">&gt;&gt;</a><br><br>"
            Else
                Response.Write "&gt;&gt;<br><br>"
            End If
        %>

beklager den lille uoverskuelighed :/