萍乡 最大陶瓷填料企业:下一篇下一篇问题？ASP

<% dim id,showsql1,showsql,fenleiid,rsnum,showrmrs,showxgrs
id=Trim(Request.QueryString("id"))
fenleiid=Trim(Request.QueryString("fenleiid"))
if id="" then
id=10
end if
showsql="select * from wenzhang where fenleiid="&fenleiid&" order by id "
set showrs= Server.CreateObject("adodb.recordset")
showrs.open showsql,conn,1,3
rsnum=showrs.recordcount
for i=1 to rsnum
if showrs("id")=id then
exit for
else
showrs.movenext
if showrs.eof then
showrs.moveprevious
end if
end if
next
showsql1="update wenzhang set dianji=dianji+1 where id="&id
conn.execute showsql1 %>

中间的显示省了
<br>
   上一篇：
<% showrs.moveprevious
if showrs.bof then
showrs.movenext
else
id=showrs("id")
endbiaoti=showrs("biaoti")
fenleiid=showrs("fenleiid")
Response.Write "<a href='show.asp?fenleiid="&fenleiid&"&id="&id&"'>"&endbiaoti&"</a>"

end if%>
<br>
   下一篇：
<%
showrs.movenext
showrs.movenext
IF SHOWRS.EOF THEN
SHOWRS.MOVEPREVIOUS
ELSE
id=showrs("id")
endbiaoti=showrs("biaoti")
fenleiid=showrs("fenleiid")
Response.Write "<a href='show.asp?fenleiid="&fenleiid&"&id="&id&"'>"&endbiaoti&"</a>"
END IF

%>
为什么显示不了？~！
http://www.cnvb.cn/show.asp?id=135&fenleiid=2就是这个页面~！
我要显示上一偏，下一偏，这样错了吗？
那有没有人能提供代码给我呢？
要怎么写谢谢