Função "3 pontinhos"

LAST UPDATE: 06/08/2003

Salve galera, pra quem não sabe exatamente a quantidade caracteres que vai pegar do banco de dados, eu criei esta função simples....ela resume o texto num numero determinado de caracteres e coloca 3 pontos no final!

SEGUE:

ASP

<%

Function resumindo(txt,vCrt)

vX = Mid(txt, 1, vCrt)

if NOT Len(txt) <= vCrt then

resumindo = vX & "..."

else

resumindo = vX
        end if

end function

%>

Para utilizar:

ASP

<%=resumindo("texto ou variavel", 3) %>
Onde 3 eh a qtidade caracteres máxima a ser exibida, após isso será inserido (...)

No caso deste exemplo, ficaria desta forma na tela: tex...

Quaisquer dúvidas gritem aí, mas esta eh simples ;) abraço!