Biblioteca de Clases,Funciones y Sub-rutinas.

[mamon]

Cómo paginar un texto?

Código:

<%
sub paginar_texto(variable)
variable = Replace(variable,vbcrlf,"<br>")

V = Split(variable," ")
palabras = Ubound(V)
mostrar = 10
If Request.QueryString("pag") = "" Then
pagina_actual = 0
Else
pagina_actual = CInt(Request.QueryString("pag"))
End If

cant_paginas = Int(palabras/mostrar)

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 0 Then pagina_actual = 0

if pagina_actual < cant_paginas then
for i = pagina_actual*mostrar to pagina_actual*mostrar+mostrar-1
response.Write(V(i)&" ")
next
else
for i = pagina_actual*mostrar to palabras
response.Write(V(i)&" ")
next
end if
response.Write("<br>")
if pagina_actual > 0 then
response.Write("<a href='mid.asp?pag="&pagina_actual-1&"'><<</a> ")
end if


if pagina_actual < cant_paginas then
response.Write(" <a href='mid.asp?pag="&pagina_actual+1&"'>>></a>")
end if

end sub

'aquí tenemos el texto
texto = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est"
'ahora llamamos a la subrutina
paginar_texto(texto)
%>