南洋女子中学宿舍:我做分页，遇到的问题，大家给指点

我做分页，想按文章的段落标记来分，可怎么也不能计算“<p>”标记的个数，大家给看看，代码如下：
<% content=softrs("jj")‘---从数据库提取内容，
dim page,pagecount,thispage,linenum,allline
const pageline=5 '每页显示10行
linenum=split(content,"<p>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
pagecount=int(allline\pageline)+1 '计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
response.write "<title>"&title&"</title><b>"&title&"</b><hr>"
for i=0 to allline
if i+1>thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" '输出分页后的内容
end if
next
response.write chr(13)&"<hr>"
response.write "<p align='center'>总共"&allline&"行 "&pagecount&"页 每页"&pageline&"行 "
for i=1 to pagecount
if thispage=i then
response.write i & " "
else
response.write "<a href='?page="&i&"&id="&id&"'>"&i&"</a> " '输出所有分页链接
end if
next
%>