Skrive alle ord med Ucase

<%
    Function ProperCase(strText)
        arrWords = Split(strText, \" \")
        For intIndex = 0 To UBound(arrWords)
            strWord = arrWords(intIndex)
            arrWords(intIndex) = UCase(Left(strWord, 1)) & Right(strWord, Len(strWord) - 1)
        Next

        Propercase = Join(arrWords, \" \")
    End Function

    Response.Write ProperCase(\"propercase() function by thomas daugaard, 19-01-2002\")
%>

KANON