set rsn=server.CreateObject(adodb.recordset)sqln=select top 1 * from vArticle where apage=abnamersn.open sqln,conn,1,1if not rsn.eof thendo while not rsn.eofpage_n=len(rsn(aContent))-len(replace(rsn(aContent),[NextPage],))page_n=split(rsn(a