ASP Function to Capitalize the First Letter of All Words in a Sentence

Here's a function you can use that will capitalize the first letter of all words in a sentence. Simply pass in the text string containing the words you want capitalized.

You send in: "The quick brown fox"
You get out: "The Quick Brown Fox"

First call the function:

YourString="The quick brown fox"
strCaps = Capitalize(YourString)

The Function:

Function Capitalize(X)
 'return a string with the first letter of the word capitalised
 If IsNull(X) Then
  Exit Function
 Else
  lowercaseSTR = 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 Then
     newString = newString & UCase(MyArray(IntI)) & " "
    ElseIf I=1 Then
     newString = newString & UCase(Mid(MyArray(IntI), I, 1))
    ElseIf I = Len(MyArray(IntI)) Then
     newString = newString & Mid(MyArray(IntI), I, 1) & " "
    Else
     newString = newString & Mid(MyArray(IntI), I, 1)
    End If
   Next
  Next 'IntI
  Capitalize = Trim(newString)
 End If
End Function