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
