cümledeki kelime sayısını nasıl buluruz

selam arkadaslar.
bir tane site içi arama scripti yazıyorumda bi yerde takıldım.
asp'de bir cümlede kaçtane kelime olduğunu nasıl anlarız
mesela: ali ata bak
burada 3 tane kelime var bunu asp de nasıl yapabileceğimi bilen varsa lütfen yardım edebilirmi.

teşekkürler.

<%
Degisken="ali ata bak"
SayBunu=Len(Degisken)

Response.Write (SayBunu)
'Sonuç 11 çıkar boşluklarda sayılır
%>

@tunc harf sayıyor senin ki
arkaadaş kelime sormuş

<%
gelen="ali ata bak oya ip atla dasd"
marray =split(gelen," ")
toplamkelime =ubound(marray,1)+1
response.write toplamkelime
%>

tuncgulec çok teşekkür ettim

Aklıma geldi bunu Function Haline Dönüştürelim

<%
Function Kelimebul(Gelen)
	Gelen=Trim(Gelen)
	If Gelen="" Then Exit Function
	KelimeParcala=Split(Gelen," ")
	Kelimebul=Ubound(KelimeParcala,1)+1
End Function


Kelime="merhaba deneme yazisi yazdik kelime sayisini bulacagiz "
Saybakalim=Kelimebul(Kelime)

Response.Write (Saybakalim)
'Sonuç 7 Kelime
%>

Teşekkürler..