asp实现上一篇和下一篇id怎么跟踪不了？

以下是我的asp代码？高手帮我看下错在哪里？我好改谢谢！

上一篇：<%
      dim rsPrev
   sql="Select * From shownew Where  id<" & rs("id") & " order by id desc "
   Set rsPrev= Server.CreateObject("ADODB.Recordset")
   rsPrev.open sql,conn,1,1
   if rsPrev.Eof then
    response.write "暂无新闻"
   else
    response.write "<a href='open_shownews.asp?id="&rsPrev("id")& "'>"&rsPrev("title") & "</a>"
   end if
   rsPrev.close
   set rsPrev=nothing
   %><br />
    下一篇：
      <% dim rsNext
   sql="Select * From shownew Where id>" & rs("id") & " order by id desc "
   Set rsNext= Server.CreateObject("ADODB.Recordset")
   rsNext.open sql,conn,1,1
   if rsNext.Eof then
    response.write "暂无新闻"
   else
    response.write "<a href='open_shownews.asp?id="&rsNext("id")& "'>"&rsNext("title") & "</a>"
   end if
   rsNext.close
   set rsNext=nothing
   %>

sql="Select * From shownew Where  id<" & rs("id") & " order by id desc "

改为
sql="Select * From shownew Where  id<" & CInt(rs("id")) & " order by id desc "

-------------------------------------------------------------------------------------------
sql="Select * From shownew Where id>" & rs("id") & " order by id desc "

改为
sql="Select * From shownew Where id>" & CInt(rs("id")) & " order by id"
试试

还有，你这两个查询语句装载了整个表的内容啦，性能应该很差吧。