aynı şeyi yapmıştım. asptear için key istedi. sorunu farklı şekilde çözdüm.

Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0" )
StrHTTP.Open "GET" , adres, false
....
şeklindeki kod içinde false olan değeri true yapınca istediğim şey oldu.