[Resolvido] Função TrataTexto

Função para quebrar os textos enormes em linhas para que não atrapalhe no layout...

<%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 = sTextoSaidaEnd Function%>

para chamar:

<%Texto = "sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas"response.write TrataTexto(Texto,3)%>

Retorno:

sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas sadasdas