<%
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
%>