上一页下一页的问题

<%
Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select id,title from info where Sort1=131 order by AddDate desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
if rs1("id") = rs("id") then
exit do
end if
rs1.movenext
loop
%>
<%rs1.moveprevious%>
<%
if rs1.bof then
response.write "<font size=3 color=#FF0000>上一条信息：</font><font size=3>没有上一条信息了</font>"
else
%><font size=3 color=#FF0000>上一条信息：</font><a href="ViewInfo.asp?id=<%=rs1("id")%>"><font size=3><%=rs1("title")%></font></a>
<%
end if
rs1.movenext
rs1.movenext
%><br><br>
<%
if rs1.eof then
response.write "<font size=3 color=#FF0000>下一条信息：</font><font size=3>没有下一条信息了</font>"
else
%><font size=3 color=#FF0000>下一条信息：</font><a href="ViewInfo.asp?id=<%=rs1("id")%>"><font size=3><%=rs1("title")%></font></a><%end if%>
<%
rs1.close
set rs1=nothing
%>

功能实现了 但是如果中间缺个ID的话就会显示 没有下一条信息了 或者 没有上一条信息了
如 1 2 3 4 缺2的话 在1页就会显示没有下一条信息了 到了3就显示没有上一条信息了 显示4的数据 请问这段代码应该怎样改才能在缺一中间ID的情况也正确显示