string = Spelling_ShowStream( string
)
Example Usage:
ASP Source Code:<% dim a a = Spelling_ShowStream( "how nuch is that doogie inb the window." ) If IsNull( a ) Then Response.Write "Errors occurred." Else Response.Write a End If %>
<%
Private Function Spelling_ShowStream(byVal string)
Dim sc, tmp
On Error Resume Next
Set sc = GetObject("java:SpellCheck")
sc.LoadDictionary _
"C:\dictionary.txt"
sc.SetHighlights "", ""
tmp = sc.CheckSpelling(string)
If Err Then
Spelling_ShowStream = Null
Exit Function
End If
On Error GoTo 0
Set sc = Nothing
Spelling_ShowStream = tmp
End Function
%>