<%
Private Function IsCorrect(byVal string)
Dim sc, tmp, i, tmp2, out, ct
On Error Resume Next
Set sc = GetObject("java:SpellCheck")
sc.LoadDictionary _
server.mappath("/dictionary.txt")
If Err Then
IsCorrect = Null
Exit Function
End If
On Error GoTo 0
sc.SetHighlights "<BAD>", "</BAD>"
tmp = sc.CheckSpelling(string)
Set sc = Nothing
tmp2 = Split( Trim( tmp ), " " )
ct = 0
for i = 0 to UBound( tmp2 )
if instr( tmp2( i ), "<BAD>" ) Then
IsCorrect = False
Exit Function
end if
next
IsCorrect = True
End Function
%>