Counts the words in a string (using spaces)
<%
Function WordsCount(sString)
Dim TheString, ArrayTemp
ArrayTemp = split(sString, " ")
WordsCount= UBound(ArrayTemp) + 1
End Function
% >
Function WordsCount(sString)
Dim TheString, ArrayTemp
ArrayTemp = split(sString, " ")
WordsCount= UBound(ArrayTemp) + 1
End Function
% >
Views 4,477
Downloads 1,447
CodeID
DB ID