ASP判断奇偶数

<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from Products where BigClassID=50" 
rs.Open sql,conn,1,1
for i=1 to 1000
if rs.eof then exit for
%>
        <td width="127" height="63" align="center" bgcolor="#eeeeee"><table width="110" height="60" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td><strong><%=RS("Title")%></strong></td>
            </tr>
            <tr>
              <td><%=RS("TitleContent")%></td>
            </tr>
            <tr>
              <td class="TDFONT"><%=RS("Content")%></td>
            </tr>
        </table></td>
<%
rs.movenext
if i mod 6=0 then response.write "</tr><tr>"
next
rs.close
%>