Quebrar linha

[marvi]

Olá pessoal, estou tentando fazer uma quebra de linha, mas não saiu bem... quero que uma variável imprima algo mas quando chegar em um determinado quantidade de caracteres ele quebre o texto, tipo:

variavel= ola tudo bem?

imprimir variavel

seria:

Ola

tudo bem?

Quebraria a linha, tava tentando algo do tipo mas não sei, veja:

texto = rsMuralRecados("texto") 'Aqui traz o texto do banco de dados
texto = replace(texto, Chr(20), "
") 'Faz a quebra de linha a cada "Enter" no texto



Response.Write(quebraTexto(texto)) 



Function quebraTexto(texto)
qtd_max_caracteres = 10'Estipula o tamanho máximo da frase em caracteres
str_palavras = texto
sTexto = ""

Function QuebraTexto()

If Len(Texto) => Eval(qtd_max_caracteres) Then

QuebraTexto = Left(Texto, Caracteres) &"
"& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)

Else

QuebraTexto = Texto

End If

End Function

ou...

Function QuebraTexto(Texto, Caracteres)

If Len(Texto) => Eval(Caracteres) Then

QuebraTexto = Left(Texto, Caracteres) &"
"& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)

Else

QuebraTexto = Texto

End If

End Function

Como fazer algo assim?

[marvi]

Já conseguir, qualquer coisa posto de novo!

Obrigado!

[Rafael Spilki]

Marvi, bom dia.

Sempre é interessante que você poste a solução dos problemas para que outras pessoas as possam aproveitar, ok?

[]'s Rafael Spilki