这个循环怎么写啊？

[rdw168]

兄弟们

<li class="cli1"><a href="/mp3/icjd.shtml" target="play">爱的华尔兹</a></li>
<li class="cli1"><a href="/mp3/icfc.shtml" target="play">星空物语</a></li>
<li class="cli2"><a href="/mp3/ijgg.shtml" target="play">偏爱</a></li>
<li class="cli2"><a href="/mp3/cdfb.shtml" target="play">在心里从此永远有个你</a></li>
<li class="cli1"><a href="/mp3/gdhf.shtml" target="play">Nobody</a></span></li>
<li class="cli1"><a href="/mp3/fiha.shtml" target="play">犯错</a></li>
<li class="cli2"><a href="/mp3/hdfe.shtml" target="play">姑娘我爱你</a></li>
<li class="cli2"><a href="/mp3/cdej.shtml" target="play">不是因为寂寞才想你</a></span></li>


从数据库提取数据循环出来就是上面这样，代码怎么写啊？大家帮帮忙，谢谢了

[hookee]

<%
i = 0
n = 0
Do While Not rs.EOF
   If i Mod 2 = 0 Then
      n = 2 - ((n+1) Mod 2)
   End If
%>
<li class="cli<%=n%>"> <a href="<%=rs("url")%>" target="play"><%=rs("name")%></a></li> 
<%
   rs.MoveNext
   i = i+1
Next
%>

[mychenliang]

<%
Dim i, t, m
t =1
m =1 
For i=0 to 7  '*****  自己去修改 ***
Response.Write"<li class=""cli"&m&"""> <a href='"&Rs("link")&"' target=""play"">"&Rs("Name")&"</a> </span> </li>"&vbcrlf
if t mod 2=0 then 
    if m = 1 then 
	   m=2
	else
	   m=1
	end if 
end if
t =t +1
Next
%>