Classic ASP Title Case

Unlike some title case functions, this one doesn't just look for spaces, but capitilises the first letter after each non-alpha character which means that hyphenated words and words after numbers are considered new words.

Function TitleCase(byVal strValue) Dim intChat, intLastChar, blnUCase strValue = LCase(strValue) For intChar = 1 To Len(strValue) blnUCase = False If intChar = 1 Then blnUCase = True Else intLastChar = Asc(Mid(strValue, intChar - 1, 1)) If Not ((intLastChar >= 97 And intLastChar <= 122) Or (intLastChar >= 65 And intLastChar <= 90)) Then blnUCase = True End If End If If blnUCase Then strValue = Left(strValue, intChar - 1) & UCase(Mid(strValue, intChar, 1)) & Mid(strValue, intChar + 1) End If Next TitleCase = strValue End Function