ASP文章分页，我从数据库中读出文章，然后将文章分页显示

这是我的代码，
<%'dim i
'id=request("id")
dim newsid
newsid=89
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shejishi where newsid="&newsid,conn,1,3
rs("viewcount")=rs("viewcount")+1
rs.update
%>
<%=trim(rs("newscontent"))%>
我想让rs("newscontent")的内容分页显示，我在网上都找了很多了，我都不能用，可能是我太笨了，我希望哪位高人好心人能给我一个详细的答案，因为我真的很菜啊，需要仔细的答案才能看得懂，我对javascript一点都不懂，所以看起来很困难哦，希望能详细指点，谢谢

<%
sub autopage()
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint

Maxpagelen=1000
content=ubbcode(rs("content"))
ArticleID=rs("ArticleID")
contentlen=len(content)
page=request.QueryString("page")

if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if

if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if