Server Side Spellchecking

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%option explicit%>

<!--#include virtual= "/ASPSpellCheck/ASPSpellInclude.inc -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" http://www.w3.org/TR/html4/loose.dtd>
<html>
<head>
<title>ASPSpellCheck Sample</title>
</head>
<body>

<form id="form1" name="form1" action="" method="post">
<input  name="strWord"  id="strWord" value="<%=request.form("strWord")%>">
<input type="submit">

<%

dim myLink, myWord, binGood, arrSuggestions, strSuggestions
if request.form("strWord")<>"" then 
myWord = request.form("strWord")
%>

<hr><h2><%=myWord%></h2><br>

<%
set myLink = new AspSpellLink
binGood  = myLink.spellingCheck ( myWord  )
%>
Spelling: <%=binGood%>

<%
if not binGood  then
arrSuggestions = myLink.spellingSuggestions ( myWord  )
strSuggestions = join(arrSuggestions,", ")
%>

Suggestions: <%=strSuggestions%>

<%
end if
set myLink=nothing
end if 
%>

</form>
</body>
</html>