xmlhttp funciona en localhost y en server no.

[lexus]

msxml3.dllerror '80070005'

Access is denied. /moneda/default.asp, line 17




hola me sale este error cuando subo mi pagina al servidor. y en mi localhost me funciona a la perfeccion que podra ser? sera que no tienen instalado ese componente en el server? o que sera.. mi codigo es este.

Código:

   
'###################################################################
''' codigo para cambio de moneda
'###################################################################
set http_obj = createObject("Microsoft.XMLHTTP")
cadena2 = "http://www.corfinsura.com/espanol/in...res/conavi.asp" 
http_obj.Open "GET",cadena2,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
pos = instr(codigo, "$") ' buscamos la parte que queremos sacar no mas.
codigo = mid(codigo,pos+1,len(codigo)) ' pos+1 se debe cambiar segun el numero de caracteres
pos2 = instr(codigo ,"&")
codigo = mid(codigo,1,pos2-1)
 
Dim enviado, trm
trm = trim(codigo) ' tasa representativa monetaria
trm = replace(trm,".",",")
enviado=request.form("enviado")
 
if enviado = 1 then
 Dim moneda,  cambio, valor, signo
 moneda = request.form("moneda")
 valor = Trim(request.form("valor"))
 if valor = "" then
 valor = 0
 end if
  'de pesos a dolares
 if moneda = 1 then
 cambio = cdbl(valor) / cdbl(trm)
 signo = "$ USD"
 end if
 ' de dolares a pesos
 if moneda  = 2 then
 cambio =  cdbl(valor) * cdbl(trm)
 signo = "$"
 end if
end if