Ciao.
Ho scritto queste righe ASP per fare in modo che quando il testo inserito supera un certo numero massimo di caratteri (1500), il testo si divida in due parti (pagine) e venga visualizzato appunto in 2 pagine diverse.
Purtroppo non funziona perchè non mi esegue il cambio pagina anche se vedo due pagine e tutto il testo contenuto nella prima pagina, ma mi riporta alla pagina della prima risposta che è stata postata, cioè non mi porta alla seconda pagina con la parte finale del testo inserito.
Spero possiate aiutarmi a capire dov'è la magagna.
Grazie---
codice:
<%
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
%>