Using the Google APIs to Spell Check

<%
'SEARCH ENGINE using GOOGLE API for RLC search engine

'Define Variables for Script
Dim objSoapClient, results
Dim googleAPIKey
Dim xmldocument
Dim xsldocument
Dim estimatedTotalResultsCount
Dim endIndex, startIndex
Dim searchQuery
Dim i 'as loop counter

'Instantiate the application variable for the GoogleAPI
application("googleSearchNumber") = application("googleSearchNumber") + 1

'Set the Google API Key you received when registering.
googleAPIKey = "00000000000000000000000000000000"

'Set the string to send to Google for spell checking
query = "The Lazy Bron Dog Jumpd Over The Fnce"


'Need to make an array with blocks of 10 words because the
'Google API will only accept the first 10 words of a string.
Dim arrTemp
Dim strTemp
Dim wordCount
Dim ArrayLength
Dim dicWords

i = 0
arrTemp = Split(query," ")
set dicWords = Server.CreateObject("Scripting.Dictionary")
wordCount = 1

'Google only allows up to 10 words at a time. Must make it 10 word strings.
If UBound(arrTemp) < 10 Then
  dicWords.Add i, query
Else
  For each Item in arrTemp
    IF UBound(arrTemp) < 10 Then
      dicWords.Add i, query
    Else
      If wordCount = 10 Then
        dicWords.Add i, strTemp
        wordCount = 1
        i = i + 1
        strTemp = Item & " "
      Else
        wordCount = wordCount + 1
        strTemp = strTemp & Item & " "
      End If
    End If
  Next
  'Get any left overs
  IF strTemp <> "" Then
    dicWords.Add i, strTemp
    'response.write "Aux: " & strTemp & ":" & i & "<BR>"
  End If
End If

strTemp = ""

' set up a Soap Client object from MS Soap
set objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")

' set up an XML document
set xmldocument = server.CreateObject("MSXML2.DOMDocument.4.0")

' set up an xsldocument
set xsldocument = server.CreateObject("MSXML2.DOMDocument.4.0")
' load the style sheet
'xsldocument.load(Server.MapPath("search.xsl"))

' initialise the SOAP object with the WSDL file from Google.
objSoapClient.mssoapinit Server.MapPath("GoogleSearch.wsdl")

'If you need to, set proxy settings here; Otherwise, comment out this line.
'objSoapClient.ConnectorProperty("ProxyServer") = "my.proxy.com:8000"

' Call the Google API search. This can only be done 1000 times a day
For i = 0 to UBound(dicWords.Items)
  Results = objSoapClient.doSpellingSuggestion(googleAPIKey, dicWords.Item(i))
  If Results = "" Then
    strResults = strResults & dicWords.Item(i)
  Else
    strResults = strResults & Results
  End If
Next

'Display the alternative String, if any.
response.write strResults
%>