paginacao de texto

[marceloangel 0]

ola,como separar texto grande em paginas ? eu tenho um campo que contem uma materia muito grande... e ela poderia ser separada de acordo com o numero de caracteres ou palavras ?mostrando embaixo ">> continua na proxima pagina >>"eu sei que é possivel por registros, mas em um unico campo como fazer?

[Salgado 4]

Vou tentar fazer algo aqui e já coloco parte do cód.

 

Valeu?

[Salgado 4]

Cara basicamente é isso aqui:

<%@ Language=VBScript %>
<%
option explicit
dim Comprimento, Tamanho, TextoTotal, TextoParc, Proximo
Tamanho=255 ' numero de caracteres q você quer mostrar
Comprimento=session("Comprimento")
if Comprimento="" then Comprimento=0 end if
TextoTotal=Coloque aqui o seu texto
if Comprimento<>0 then
TextoTotal=Right(TextoTotal,Comprimento)
end if
If len(TextoTotal)>Tamanho then
 TextoParc=left(TextoTotal,Tamanho)
 session("Comprimento")=cint(len(TextoTotal))-cint(Tamanho)
else
 TextoParc=TextoTotal
end if
Response.Write TextoParc&"<BR>"
Response.Write len(TextoTotal)&"<BR>"
if len(TextoTotal)>Tamanho then
%>
<A HREF="Divisao.asp">Proximo</A>
<%
end if
%>

QQ coisa grita aee,

 

A e melhorando isso posta o cód pra nós.

 

Valeu? :D