[xanburzum]

Função para quebrar os textos grandes em linhas para

CÓDIGO

<%
Function TrataTexto(sTexto,pLinha)
sTexto = Trim(sTexto) 'string que será quebrada
pLinha = pLinha  'nº de palavras por linha
if IsNumeric(pLinha) = False then
  pLinha = 5
else
  pLinha = Int(pLinha)
end if

if sTexto = "" then
  TrataTexto = ""
  Exit Function
end if
sTextoSplit = Split(sTexto," ")

For iConta = LBound(sTextoSplit) to UBound(sTextoSplit)
  sTextoSaida = sTextoSaida & sTextoSplit(iConta) & " "
  if (iConta+1) mod pLinha = 0 then
  sTextoSaida = sTextoSaida & "<br>"
  end if
Next
TrataTexto = sTextoSaida
End Function
%>

Chamando a função:

CÓDIGO

<%
Texto = "testando teste testando teste testando teste testando teste testando teste testando teste testando teste testando teste testando teste testando teste"

response.write TrataTexto(Texto,3)
%>

Resultado:

CÓDIGO

testando teste testando
testando teste testando
testando teste testando
testando teste testando
testando teste testando