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