ASP implementation of long article manual paging code

   <% 

Set Recordset1=server.createobject ("Adodb.recordset")
exec= "SELECT * from news  where id=" &id
Recordset1. Open exec,conn,1,1
%>
 <table width= "85%" border= "0" align= "center" cellpadding= "3" cellspacing= "0"
          <tr>  <td
.....

<%
If Request ("page") = "" Then
pagenum=0
Else
Pagenum=request ("page")
End If
content= Replace (Recordset1 ("content"), "", "| | |")
Contentstr=split (content, "| | |")
for I=pagenum to Pagenum
%>
<%=contentstr (i)%>
<% Next%>
             </TD>
          </tr>
 <%if UBound ( CONTENTSTR) >=1 then%>
          <tr>
             <td Height= "> This article is divided into
<%
for p = 0 To UBound (contentstr)
If p+1= Request (" page ") +1 then
a=" <font color=red >
aa= "</font>"
Else
a= ""
aa= ""
End If
%>
               <a href= "detail.asp?id=<%=request (" ID ")%>&page=<%=p% > ><%=a%><%=p+1%><%=aa%></a>
               <% Next%>
               page </td>
          </tr>
           <%end if%>

          when you add an article, when you want to page out, add a separator.