Ayuda !! Romper texto cada 50 caracteres

[Adler]

Hola

Ya sé que está solucionado pero mientra leía este post se me ocurrido esta otra manera. Es usando expresiones regulares

Código ASP:

strl = ""
str = "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"
 
Set objRegExp = new RegExp
With objRegExp
.Pattern ="([\wáéíóúÁÉÍÓÚñÑ\s\.,]{50}\b)"
.IgnoreCase = True
.Global = True
End With
strl = strl & objRegExp.replace(str, "$1<br />")
Set objRegExp = nothing
 
Response.Write strl