记录显示的问题？

[xjbx]

<%
i = 1
strSQL = "select id,text1,text4 from xpcyb"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,strDBConn,adOpenStatic,adLockReadOnly,adCmdText
If objRS.EOF Then
Response.Write "数据库暂时没有资料展示"
Else
Do While Not objRS.EOF
strid = objRS.Fields(0).Value
strtext1 = objRS.Fields(1).Value
strtext4 = objRS.Fields(2).Value
If i >=2 Then
Response.Write "</tr><tr bgcolor=#FFFFFF>"
i = 1
End If

%>
<td width="147">
<div align="center"><a href = "listqt.asp?id=<%=strid%>"><%=strtext1%></a></div>
</td>
<td width="260"><%=strtext4%>
<div align="center"></div>
</td>
<%
if i>=1 then
exit do
end if
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS = Nothing
%>
我设定一页只显示一条记录，可是，为什么总是显示第一条记录呢。每一页都只显示第一条记录。。分得页数倒是正确。。谢谢，帮忙看看什么问题。不胜感激。。

[xjbx]

没人帮我么？：（

[Kandy]

你怎么控制 i 的？俺怎么看来看去 i 只等于 1 啊。

[sundna]

你是怎么分的页？ 程序格式也不规范， 看得我都眼花了！@ @
找别人的分页程序参考一下吧！：）