codice:<% paginaCorrente = Request.QueryString("pag") if Len(paginaCorrente)=0 then paginaCorrente=0 end if ... while not objRs.eof testo = replace(obj.apply(objRs("messaggio"),0), vbcrlf, " ") numeroCaratteri = Len(testo) numeroMassCaratteri = 1500 numeroIniziale = 1 pagine = Cint(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,Len(testo)) end if numeroIniziale = numeroIniziale + numeroMassCaratteri pagine = pagine -1 next %> <% if (numeroCaratteri > 0) AND (numeroCaratteri>numeroMassCaratteri)then if (paginaCorrente < 0) Or (Cint(paginaCorrente) > Cint(Ubound(testoXpagina))) then Response.write ("<a class='h22s'>Pagina inesistente</a>") else Response.write("<a class='h22s'>" & testoXpagina(paginaCorrente) & "</a>") end if Response.write (" <a class='readmore'>Pagina : </a>") For x = 0 to Ubound(testoXpagina) Response.write("" & x & "" ) Next else %> <% response.write testo%> <% end if %> <% objRs.movenext() wend %>