新人求助

[auvfk7yi]

pages=rst.pagecount
if page > pages then page=pages
rst.AbsolutePage=page
bgcolor ="#FFFFFF"
for j=1 to rst.PageSize step 2
%>
<tr align="center">
<td height="30" bgcolor="<%= bgcolor %>" bordercolor="#FF0000"><%=rst("datestr")%></td>
<td height="30" bgcolor="<%= bgcolor %>" bordercolor="#FF0000"><%= rst("callerid")%></td>
<%
if not rst.eof then
rst.movenext
else
exit for
end if
%>
<td height="30" bgcolor="<%= bgcolor %>" bordercolor="#FF0000"><%=rst("datestr")%></td>
<td height="30" bgcolor="<%= bgcolor %>" bordercolor="#FF0000"><%= rst("callerid")%></td>
</tr>
<%
if not rst.eof then
rst.movenext
else
exit for
end if

if rst.eof then exit for
if bgcolor = "#FFFFFF" then
bgcolor = "#F7F8F8"
else
bgcolor = "#FFFFFF"
end if
next

这段代码是将数据库的数据分成2列刷出在一个表格中。例如，数据库中第1行数据放到表格第一列。第二行数据放到表格第二列，第三行数据放到表格第一列。这么轮流刷。上面的代码到数据为偶数时没问题。当数据是基数时就有问题。请问如何在if not rst.eof then
rst.movenext
else
exit for
end if 这个地方加入判断啊。判断下一行是否有数据。我是新人。请大家不吝赐教。谢谢了。

[xuezj508]

走错地方了吧?