Como contar palabras en una cadena?

[delorenzis]

Hola amigos, tengo un problema, como hacer para contar cuantos datos hay dentro de una cadena, por ejemplo:

Código:

http://misitio.com/index.asp?dato1=hola,hola,hola,hola&dato2=ok

Quiero saber cuantas palabras hay en la variable dato1. Es decir contar cuantos "hola" o cualquier otra palabra hay en esa variable que van separadas por coma(,) ..

Gracias.

[u_goldman]

No lo probé pero la idea es hacer un arreglo y contar sus índices.

Código:

Function cuentaPalabras()
  arreglo = split(cadena, "hola")
  palabras = 0 
  if isArray(arreglo)
   palabras = uBound(arreglo)
  end if
  cuentaPalabras = palabras
End Function

Response.Write("Existen " & cuentaPalabras("http://misitio.com/index.asp?dato1=hola,hola,hola,hola&dato2=ok") & " en la cadena http://misitio.com/index.asp?dato1=hola,hola,hola,hola&dato2=ok"

Saludos