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