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

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

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


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