表格单元背景交错显示？(ASP+ACCESS)

从access中取出的数据该怎样才能让它像csdn论坛这里的
表格单元背景交错？

那里有例子？
---------------------------------------------------------------

i=1
while rs.eof=false
if i mod 2=1 then
col="#ffffff"
else
col="#c0c0c0"
end if
response.write "

1<tr><td bgcolor="&amp;col&amp;">wwww</td></tr>

"
i=i+1
rs.MoveNext()
wend
---------------------------------------------------------------

1   
2For i=1 to adminrs.recordcount   
3If adminrs.EOF Then Exit For   
4if i mod 2 = 0 then

 1<tr bgcolor="```
 2=BgColor4
 3```" valign="middle">
 4<td class="t" width="12%">```
 5=adminrs("AreaName")
 6```</td>
 7<td width="18%">```
 8=adminrs("NumA")
 9```\--```
10=adminrs("NumB")
11```</td>
12<td class="t" width="28%">```
13=adminrs("PicPath")
14```</td>
15<td class="t" width="18%">```
16=adminrs("PicAlt")
17```</td>
18<td align="center" class="t" width="8%">```
19=picuse
20```</td>
21<td align="center" width="8%"><a ```"="" href="admin_picture_list.asp?action=edit&amp;amp;pictureid=```
22=adminrs(" pictureid")=""><img border="0" src="images/admin_edit.gif"/></a></td>
23<td align="center" width="8%"><a ```"="" href="admin_picture_list.asp?action=del&amp;amp;pictureid=```
24=adminrs(" pictureid")=""><img border="0" src="images/admin_del.gif"/></a></td>
25</tr>

1   
2else

 1<tr bgcolor="#f0ffff" valign="middle">
 2<td class="t" width="12%">```
 3=adminrs("AreaName")
 4```</td>
 5<td width="18%">```
 6=adminrs("NumA")
 7```\--```
 8=adminrs("NumB")
 9```</td>
10<td class="t" width="28%">```
11=adminrs("PicPath")
12```</td>
13<td class="t" width="18%">```
14=adminrs("PicAlt")
15```</td>
16<td align="center" class="t" width="8%">```
17=picuse
18```</td>
19<td align="center" width="8%"><a ```"="" href="admin_picture_list.asp?action=edit&amp;amp;pictureid=```
20=adminrs(" pictureid")=""><img border="0" src="images/admin_edit.gif"/></a></td>
21<td align="center" width="8%"><a ```"="" href="admin_picture_list.asp?action=del&amp;amp;pictureid=```
22=adminrs(" pictureid")=""><img border="0" src="images/admin_del.gif"/></a></td>
23</tr>

1   
2end if   
3adminrs.MoveNext   
4Next