請問大家一下~如何用上下業以及5筆顯示一頁呢

求救....如何加上下頁...5筆顯示一頁(ASP)

<html>

<head>
<meta http-equiv="Content-Language" content="zh-tw">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>網內搜尋</title>
<style type="text/css">

</style></head>

<body>

<p>
<%
response.Buffer=true
dim conn
dim rs , rs1
dim sql , sql1
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Response.Write "<FORM Action=search.asp Method=POST>"
SELECT CASE Request("SENDT")
CASE ""
Conn.Open "DBQ=" & Server.Mappath("search.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Response.write "<center>"
Response.write "<font size=4 face=標楷體>"
Response.Write "<p>"
Response.Write "知識索引"
Response.Write "<INPUT Type=TEXT NAME=content >"
Response.Write " "
Response.Write "<INPUT Type=Submit NAME=SENDT Value=""搜尋"">"
Response.write "<font size=4 face=標楷體>"
Response.Write ""&"回首頁"&""
Response.write "</font>"
Response.Write "<P>"
Response.write "</center>"

sql="select * from search "
Set rs = conn.Execute (sql)
while not rs.eof
Response.WRITE "<A HREF="&rs("page_name") & "> "&rs("num")&"." & rs("page_title")&"</A>"
Response.WRITE "
"

rs.movenext
Response.Write "<p>"
wend
rs.close
conn.close
Response.Write "</font>"

CASE "搜尋"
Conn.Open "DBQ=" & Server.Mappath("search.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
if session("content")="" then
session("content")=request("content")
sql="select * from content where content= "&"'"&session("content")&"'"&" and count>2 order by count desc"
Set rs = conn.Execute (sql)
else
sql="select * from content where content= "&"'"&session("content")&"'"&" and content_s="&"'"&request("content")&"'"
rs.open sql , conn , 1,3
if rs.eof then
rs.addnew
rs("content")=session("content")
rs("content_s")=request("content")
rs("count")=1
rs.update
else
rs("count")=rs("count")+1
rs.update
end if
rs.close
session("content")=request("content")
sql="select * from content where content= "&"'"&session("content")&"'"&" and count>2 order by count desc"
Set rs = conn.Execute (sql)
end if

Response.write "<center>"
Response.write"<font size=4 face=標楷體>"
Response.Write"<p>"
Response.Write "知識索引"
Response.Write "<INPUT Type=TEXT NAME=content >"
Response.Write " "
Response.Write "<INPUT Type=Submit NAME=SENDT Value=""搜尋"">"
Response.write"<font size=4 face=標楷體>"
Response.Write ""&"回首頁"&""
Response.write"</font>"
Response.Write "<P>"

Response.write "</center>"
Response.write"<font size=4 face=標楷體>"
if not rs.eof then
Response.write"相關字詞:"
while (rec<=5 and not rs.eof)
Response.Write "<A HREF=search.asp?SENDT=搜尋&content=" & rs("content_s") & ">" & rs("content_s") & "</A>"
Response.Write " "
Response.Write ","
Response.Write " "
rec=rec+1
rs.movenext
wend
rs.close
end if

Response.Write "<P>"
Response.write"<font size=4 face=標楷體>"
sql="select * from search where keyword like"&"'%"&request("content")&"%'"
Set rs = conn.Execute (sql)
if rs.eof then
Response.WRITE "查無相關資料，請重新設定查詢條件"
Response.Write"<p>"
end if

while not rs.eof
Response.WRITE "<A HREF="&rs("page_name") & ">" & rs("page_title")& "</A>"
Response.WRITE "
"
Response.WRITE ""&rs("words") & ""

rs.movenext
Response.Write"<p>"
wend

rs.close
conn.close

Response.write "
"
Response.write "
"
Response.write "<center>"
Response.Write "<INPUT Type=button Value=""回上頁"" onclick=""history.back()"">"
Response.Write" "
Response.write"<font size=4 face=標楷體>"
Response.Write ""&"回首頁"&""
Response.write"</font>"
CASE "回首頁"
Response.redirect "http://localhost/全國技專/d2.htm"
END SELECT

Response.Write "</FORM>"
%>
</p>

<p align="center">　</p>
</body>

</html>