Posted By

Scooter on 10/11/08

Tagged

Versions (?)

Advertising

Website Promotion DIRECTORY is a crucial factor for all websites that need to gain better organic search engine rankings and increase website traffic.
Submitting your website as part of your Web Promotion strategy to our SEO friendly and high traffic Business Directory for review is an excellent way to gain a valuable backlink and increase your websites visibility online.

Who likes this?

2 people have marked this snippet as a favorite

nelda751
benrudolph

WordCount

Published in: ASP

URL: http://reusablecode.blogspot.com/2008/10/wordcount.html

Expand | Embed | Plain Text

<%
    ' Copyright (c) 2008, reusablecode.blogspot.com; some rights reserved.
    '
    ' This work is licensed under the Creative Commons Attribution License. To view
    ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
    ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
    ' 94305, USA.
 
    ' Count the number of words in a string.
    function WordCount(byVal someString)
        dim position
        dim spaces
 
        spaces = 1
        someString = trim(someString)
 
        for position = 1 to len(someString)
            if mid(someString, position, 1) = " " and not mid(someString, position - 1, 1) = " " then
                spaces = spaces + 1
            end if
        next
 
        WordCount = spaces
    end function
%>

Report this snippet

Comment: