<%
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
%>
fatih
fatih@tuncsoft.com