Kelimelerin baş harflerini büyüt
Kod:
<%Function Proper(X)'Return a String With the first letter of the word capitalisedIf IsNull(X) ThenExit FunctionElselowercaseSTR = CStr(LCase(X))OldC = " "MyArray = Split(lowercaseSTR," ")For IntI = LBound(MyArray) To UBound(MyArray)For I = 1 To Len(MyArray(IntI))If Len(MyArray(IntI)) = 1 ThennewString = newString & UCase(MyArray(IntI)) & " "ElseIf I=1 ThennewString = newString & UCase(Mid(MyArray(IntI), I, 1))ElseIf I = Len(MyArray(IntI)) ThennewString = newString & Mid(MyArray(IntI), I, 1) & " "ElsenewString = newString & Mid(MyArray(IntI), I, 1)End IfNextNext 'IntIProper = Trim(newString)End IfEnd Function%>