Paging efter tekstlængde

Ja her et ekspempel som klipper teksten efter 400 karakter:

<TABLE BORDER="0" WIDTH="100%">
<TR>
  <TD>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

id = Request("id")
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0
maxCharPrSide = 400

SQL = "SELECT * FROM nyhederTB WHERE ID = " & id
Set rs = Conn.Execute(SQL)

totalChar = len(rs("nyhedsTekst"))
if totalChar > maxCharPrSide then
  showFromChar = subpage * maxCharPrSide + 1
  Response.Write Mid(rs("nyhedsTekst"),showFromChar,maxCharPrSide)
  'Laver Forrige og Næste links
  Response.Write "<br><br>"
  if subpage > 0 then
    Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
  else
    Response.Write "Forrige side"
  end if
  Response.Write " | "
  if subpage < Int(totalChar/maxCharPrSide) then
    Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
  else
    Response.Write "Næste side"
  end if
else
  Response.Write rs("nyhedsTekst")
end if
%>
  </TD>
</TR>
</TABLE>



Et andet eksempel som klikker efter et antal ord:
http://eksperten.dk/spm/525023

Det er godkendt.

Tusind tak for det hurtige og effektive svar!