Submitting a Form after 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">

<textarea id= "MyTextArea" name="MyTextArea" cols="30" rows="10" >
Hello World. Ths iz a tezt sampl. 
</textarea>

<% 
dim myLink
set myLink = new AspSpellLink
myLink.fields="MyTextArea"
myLink.javaScriptCallback = "allDone"
response.write myLink.buttonHTML ("Spellcheck then submit","")
set myLink=nothing
%>

<script language= "javascript">
function allDone(strFields){
alert("submitting the form")
document.form1.submit()
}
</script>

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