Contar palabras o caracteres

[u_goldman]

No la probe, porque no puedo correr asp aqui, pero a ver si no sale con un error

Código:

function cortaTexto(texto, palabrasNumero, agregaCaracter)
	Dim arr, i, intro
	arr = split(texto, " ")
	for i = 0 to uBound(arr)  
		intro = intro & arr(i) & " "
		if i + 1 >= palabrasNumero
			exit for
		end if
	next
	if len (intro) > 0 then
		intro = left(intro, len(intro)-1) & agregaCaracter
	end if
	cortaText = intro
end function

variable = cortaTexto(rs.Fields("descripcion"), 20, "...")

Saludos