Codigo para contar palabras?

[rashid]

Hola gente.
Vean, en una formula necesito que los clientes metan una descripcion no mayor a 30 palabras o 150 letras , tal como esta aqui en los foros, donde uno pone los post, de modo que cada letra es un caracter menos hasta que ya no puede escribir.
Donde consigo este codigo?

Gracias.
Ahh, no me den un monton de direcicones donde tal vez este, pues he buscado ya y no mas me haran perder el tiempo.
Gracias de nuevo.
BAy. ;)

[Nochero]

Hola Rashid.

La cantidad de caracteres la obtienes mediante la funcion : chars = Len(cadena)

Mientras que para contar palabras simplemente contas la cantidad de espacios.
Una funcion que utilizo es esta :

Function Occurs(pchar, pstring)
xcant = 0
xpos = 0
Do While xpos < Len(pstring)
xpos = InStr(xpos + 1, pstring, pchar)
If xpos > 0 Then
xcant = xcant + 1
Else
Exit Do
End If
Loop
Occurs = xcant
End Function

entonces la llamas mediante :
palabras = Occurs(" ",cadena) + 1

Saludos

[urjose]

<a href='ir.asp?http://www.asptutor.com/asp/vart.asp?id=85' target='_blank'>http://www.asptutor.com/asp/vart.asp?id=...</a>

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

[President]

Yo no haría trabajar al servidor para esta función tan sencilla sinó que haría la validación en JavaScript, utilizando el código fuente que puedes leer de muchas páginas web dónde tu pones un texto y él te va contando cuántos carácteres llevas o cuántos te quedan. Tienes un ejemplo aqui mismo en forosdelweb cada vez que escribes un nuevo mensaje, ahora mismo a mi me quedan 1624 carácteres !