Compare 2 Arrays for Invalid Strings:

Click here to test this script.

Code:

Save as default.asp

<%option explicit%>
<html>
<head>

</head>

<%
dim str
dim strArray
Dim i

str = replace(request.form("Keywords"),", "," ")
str = replace(str,","," ")
str = replace(str,"  "," ")

strArray = split(str, " ")

Dim StaticTestArray(5)

StaticTestArray(0) = "i"
StaticTestArray(1) = "me" 
StaticTestArray(2) = "mine" 
StaticTestArray(3) = "my"
StaticTestArray(4) = "you" 
StaticTestArray(5) = "yours"

response.write "<table cellpadding=2 cellspacing=2 border=0>"

for i = 0 to Ubound(strArray)
	if testString(statictestarray, strarray(i)) then
		Response.Write "<tr><td class=default>" & trim(strArray(i)) & "</td><td>=</td><td class=defaultRed><b>fail</b></td></tr>"
	else
		Response.Write "<tr><td class=default>" & trim(strArray(i)) & "</td><td>=</td><td class=defaultBlue><b>pass</b></td></tr>"
	end if
next

response.write "</table>"

function TestString(matchArray, str)
	dim i
	
	for i = 0 to uBound(matchArray)
		if lcase(StaticTestArray(i)) = lcase(str) then
			TestString=true
			exit function
		end if
		next

end function
%>

<p>Invalid strings include the following: "I", "me", "mine", "my", "you", and "yours".

</font>

</body>
</html>