




:rolleye s:
25
●2.322
IlkHarfBuyuk=rs("icerik")
KucukHarf=Len(IlkHarfBuyuk)-1
IlkHarfBuyuk=UCase(Left(IlkHarfBuyuk,1))&LCase(Right(IlkHarfBuyuk,KucukHarf))Şu fonksiyon işini görür, sonrasını da halledersin
Function BuyukHarf(metin) splitter = " " If metin <> "" Then xarr = Split(metin, splitter) For z = 0 to Ubound(xarr) xmetin = Trim(xarr(z)) If xmetin <> "" Then xmetin = Lcase(xmetin) xstletter = Ucase(Left(xmetin,1)) '// Dilinize göre ayarlayın xstletter = Replace(xstletter,"i","İ", 1, -1) 'Ý xmetin = Right(xmetin, Len(xarr(z)) - 1) '// Dilinize göre ayarlayın xmetin = Replace(xmetin,"İ","i", 1, -1) 'Ý xmetin = xstletter & xmetin End if zmetin = zmetin & " " & xmetin Next End if buyukharf = zmetin End FunctionO zaman bu da büyük harf kodu. Cümledeki her sözcük büyük harfle başlar.
<% multiuye = "turker66+ruzgar66" asp = multiuye cocuk = Split(asp, "+") For Each asp in cocuk %> <%=asp%>, <% Next %>Artist çocuk seni.

