ASP//Yazıdaki tüm kelimelerin ilk harflerini büyük yapmak

[free!]

<%

Private Function ihby ( byval yaz )
dim YazanYazi(2), xna
YazanYazi(1) = yaz
YazanYazi(2) = Split(YazanYazi(1), " ", -1)
For xna = 0 to UBound(YazanYazi(2))
yaz = UCase(Left(YazanYazi(2)(xna),1)) & _
Right(YazanYazi(2)(xna), Len(YazanYazi(2)(xna))-1) & " "
ihby = ihby & yaz
Next
End Function


Response.write ihby ( "dünle beraber gitti düne ait ne varsa..." )
'Dünle Beraber Gitti Düne Ait Ne Varsa...

%>

 

[JACKAL XX]

thanxxxxx.........