un error que no entiendo

[virla]

bueno aqui te pongo lo que puse y el resultado que me dio
el primer error como siempre fue public namearray
asique le puse dim namearray
corri nuevamente la pagina con estas modificaciones

Código:

     Set objXML = Nothing
     if inStr(ResponsePageSpelling,"</return>") then
      Spelling=left(ResponsePageSpelling,inStr(ResponsePageSpelling,"</return>")-1) 
      Spelling=right(Spelling,len (Spelling)-inStr(Spelling,"<return")-29)
     end if
     spellingarray=Split(Spelling," ")
     spellingmax=ubound(spellingarray)
     Spellingitalic=Spelling
 
     response.write spellingmax
     response.flush
 
     for j=0 to spellingmax
      if inStr(keywords,spellingarray(j))=0 then
       Spellingitalic=replace(Spellingitalic,spellingarray(j),"<b><i>"&spellingarray(j)&"</i></b>")
      end if
     next

el resultado es -1