Counting number of words in a string

dim TheString, ArrayTemp, NumberOfWords, Word
TheString = "Hello, How are you today?" 'just a test string
ArrayTemp = split(TheString, " ")
NumberOfWords = UBound(ArrayTemp) + 1
Response.Write "<P>The string is: " & TheString
Response.Write "<P>Number of words in that string: " & NumberOfWords
Response.Write "<P>Here are the words which compose that string: "
for each Word in ArrayTemp
 Response.Write "<BR>" & word
next

Upload