asp分页无法实现

我在做分页时，首页功能呢个无法实现，求救！

<%
set rs=server.createobject("adodb.recordset")
sql="select * from zhaoshang"
rs.open sql,conn,3
rs.pagesize=6
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>

<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>

<p align="center">
<a href="zhaoshangtitle.asp?page=<%=rs.pagecount%>">首页</a> 
<a href="zhaoshangtitle.asp?page=<%=epage-1%>">上一页</a> 
<a href="zhaoshangtitle.asp?page=<%=epage+1%>">下一页</a> 
<a href="zhaoshangtitle.asp?page=<%=rs.pagecount%>">尾页</a>
</p>

<%
dim i,epage

set rs=server.createobject("adodb.recordset")
sql="select * from zhaoshagn"
rs.open sql,conn,3
rs.pagesize=5
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>

<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
response.Write rs("title")&"<br>"
rs.movenext
next
%>
<p align="center">
<a href="1.asp?page=1">首页</a>
<a href="1.asp?page=<%=epage-1%>">上一页</a>
<a href="1.asp?page=<%=epage+1%>">下一页</a>
<a href="1.asp?page=<%=rs.pagecount%>">尾页</a>
</p>