循环问题，在先等

[underone]

<%
Do While Not objRs.EOF
For i = 1 To 90
If i = objRs.Num Then
%>
<table width="70%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="85%"><%=objRs("UnitName")%>  <%=objRs("UserName")%>  发表于  <%=objRs("CreateTime")%></td>
<td width="15%" align="center">第<%=i%>楼</td></tr>
</table>
<%
objRs.MoveNext
i=i+1
Loop
%>
请问这个第几楼的循环应该怎么改？能使每多一条内容就能是楼层自动+1，请高手指教，谢谢了

[angelheavens]

<%
'按时间升序排列
i=1
Do While Not objRs.EOF
%>
<table width="70%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="85%"><%=objRs("UnitName")%>  <%=objRs("UserName")%>  发表于  <%=objRs("CreateTime")%></td>
<td width="15%" align="center">第<%=i%>楼</td></tr>
</table>
<%
objRs.MoveNext
i=i+1
Loop
%>

[demonchen]

少next 语句

[underone]

<%
Do While Not objRs.EOF And i < intpagesize
%>
<table width="70%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="85%"><%=objRs("UnitName")%>  <%=objRs("UserName")%>  发表于  <%=objRs("CreateTime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">回 复 ： <%=objRs("Content")%></td>
</tr>
</table>
<%
objRs.MoveNext
i=i+1
Loop
%>
这是源程序，i是用来做翻页程序，应该怎么+阿

[underone]

<%
Do While Not objRs.EOF And i < intpagesize
%>
<table width="70%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="85%"><%=objRs("UnitName")%>=objRs("UserName")%>发表于  <%=objRs("CreateTime")%></td>
<td width="15%" align="center">第<%=m%>楼</td></tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">回 复 ： <%=objRs("Content")%></td>
</tr>
</table>
<%
objRs.MoveNext
i=i+1
Loop
%>

[underone]

还没有解决啊