点击按钮实现弹出网站，如何实现？

现在项目中有一个问题：
网站都保存在一个表中，要求点击“下一个”按钮实现弹出下一个网站，下一次点击“下一个”按钮时就变成弹出另外一个网站了，游标好像不怎么好控制。
这样如何实现?
我的代码：
<!--#include file="conn.asp"-->
<%
inputstring = Request("inputstring")
city = Request("city")if inputstring <> "" then
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "select * from Citys where CityName='"&inputstring&"'"
rs.open sql,conn,1,1
citynum = rs("citynum")
'Response.Write citynum
set rs = nothing
elseif city <> "" then
citynum = city
else
citynum = "A"
end ifSet rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * from Websites where CityNum='"&citynum&"' and isPointer=1 order by webid asc"
rs.open sql,conn,1,3
if rs.eof then
set rsn = Server.CreateObject("Adodb.Recordset")
sqln = "select top 1 * from Websites where CityNum='"&citynum&"' order by webid asc"
rsn.open sqln,conn,1,3
if not rsn.eof then
conn.execute("update Citys set webhits=webhits+1 where citynum='"&citynum&"'")
rsn("isPointer") = 1
rsn.update
Response.Redirect rsn("weblink")
else
Response.Write ""
Response.End()
end if
else
'rs("isPointer") = 0
Response.Write rs("webid")
rs.movenext
Response.Write rs("webid")
Response.End()
rs("isPointer") = 1
rs.update
conn.execute("update Citys set webhits=webhits+1 where citynum='"&citynum&"'")
Response.Redirect rs("weblink")
end if
%>