isAlpha

<%
    ' Copyright (c) 2008, www.thecanonman.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.
 
    ' Checks if a string contains only alpha characters.
    function isAlpha(someString)
        dim regEx
 
        set regEx = new RegExp
 
        with regEx
            .Global = true
            .IgnoreCase = true
            .Pattern = "[A-Z\s_]"
        end with
 
        if regEx.test(someString) then
            isAlpha = true
        else
            isAlpha = false
        end if
 
        set regEx = nothing
    end function
%>