strStopList = Split("! £ $ % ^ & * ( ) _ + { } : @ ~ < > ? - = [ ] ; # , . / | \ ' q w e r t y u i o p a s d f g h j k l z x c v b n m  all an and are as at be but by can for from had have he her him his if in is it may not of on or she that the this those to was we which who will with you your")
       
    ' Get the text and trim it
    strSearchText = trim(Replace(Request.Form("txtSearchText"),"'",""))
       
    'Response.Write "Start<br> " &strSearchText& "<BR>Done<BR><BR><BR>" 
        
    'Prune extra spaces
    Do While InStr(strSearchText, "  ")
		strSearchText = Replace(strSearchText, "  ", " ")
	Loop
        
    'Duplicate for display use
    strText = strSearchText
        
    'convert to lowercase to match case of the Stop List. Add leading and trailing spaces
    strSearchText = LCase(" " & strSearchText & " ")
        
    'Response.Write "Start<br> " &strSearchText& "<BR>Done<BR><BR><BR>" 
         
    'Go through the stop list to remove characters as needed 	
	For intLoopControl = 0 To UBound(strStopList)
		'Response.Write strSearchText & "<BR>"
		strSearchText = Replace(strSearchText, " " &strStopList(intLoopControl)& " "," ")
	Next
		
	'final trim
	strSearchText = trim(strSearchText)

'Check for input text	
	if strSearchText <> "" Then

		
		'split the input text into an array	
		 arrWords = Split(strSearchText," ")