<% 
paginaCorrente=Request.QueryString("pagina") 
if Len(paginaCorrente)=0 then 
paginaCorrente=0
end if 

testo=(rs_Articoli.Fields.Item("Articolo").Value)
dim numeroCaratteri
numeroCaratteri=Split(testo," ") 

'qui imposta il numero di parole
numeroMassCaratteri=300
numeroIniziale=1 
Dim testoXpagina() 
pagine=Cint(ubound(numeroCaratteri)/numeroMassCaratteri) 
Redim testoXpagina(pagine-1) 
For i=0 to pagine-1 
if pagine > 1 then 
 testoXpagina(i)=Mid(testo,numeroIniziale,numeroMassCaratteri) 
else 
 testoXpagina(i)=Mid(testo,numeroIniziale,ubound(numeroCaratteri)) 
end if 
 numeroIniziale=numeroIniziale+numeroMassCaratteri 
pagine=pagine-1 
next 
if (ubound(numeroCaratteri) > 0) AND (ubound(numeroCaratteri)>numeroMassCaratteri)then 
if (paginaCorrente < 0) Or (Cint(paginaCorrente) > Cint(Ubound(testoXpagina))) then 
Response.write ("Pagina inesistente") 
else 
Response.write(testoXpagina(paginaCorrente)) 
end if 
Response.write ("<br><br>Pagina : ") 
For x=0 to Ubound(testoXpagina) 
Response.write("<a href=""articoli.asp?pagina="&x&""">"&x&"</a>&nbsp;&nbsp;" ) 
Next 
else
Response.write(testo) 
end if 
%>