Ayuda !! Romper texto cada 50 caracteres

[u_goldman]

Esta bien, me vas a obligar a probarlo

Probando....

Edit: Ok, así quedó, fíjate si te sirve:

Código ASP:

<&#37;
Dim cadena
Dim arr
Dim temp
Dim caracteres
Dim cadenaFinal
Dim agregaCaracter
Dim i
 
caracteres = 50
 
cadena = "El ácido acetilsalicílico se administra principalmente " & _
"por vía oral, aunque también existe para uso rectal " & _
"y como terapia intravenosa. Los comprimidos de aspirina " & _
"para administración oral se hidrolizan con facilidad " & _
"cuando se ven expuestos al agua o aire húmedo, de modo " & _
"que deben permanecer almacenados en sus envoltorios " & _
"hasta el momento de su administración"
 
arr = split(cadena, " ")
 
for i = 0 to uBound(arr)
    temp = temp & arr(i)
    if len(temp) <= caracteres then
        agregaCaracter =  " "
    else
        agregaCaracter = "<br>"
        temp = ""
    end if
    cadenaFinal = cadenaFinal & arr(i) & agregaCaracter
next
 
Response.Write(cadenaFinal)
%>
 

Saludos