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

%>