Loja Virtual com problema

Bom dia,
Estou com problema na loja virtual do meu site, ja identifiquei o erro, porem preciso de algum programador em ASP para solucionar!
O sistema que uso para pagamento é o MOIP.
Meu site: www.veromundo.com.br

Quando tentamos finalizar uma compra, o sistema reporta um erro:
msxml3.dll error '800c0008'
System error: -2146697208.
/Loja/inicia_transacao.asp, line 781
ele informa que ocorreu um erro na execução de um comando ou função na linha 781 do arquivo /loja/inicia_transacao.asp
O que se encontra nesta linha:  Call xmlhttp.Send(xml)
----------------------------------------------------------------------------------
Para que ocorra uma transação com o MoIP, é necessário enviar todas as informações da compra para o Moip via xml, para criar este xml, no asp, utiliza um objeto chamado msxml2.XMLHTTP.
No Código do asp ele cria este objeto: Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")
e cria o xml normalmente, mas, no momento do envio, com o comando xmlhttp.Send(xml), ele retorna o erro, é como se este recurso estivesse desabilitado pelo servidor.
Eu não tenho nenhuma experiência em ASP, então eu nem imagino como habilitar este recurso.
Veja se consegue algum programador em ASP que possa resolver. O trecho de código é esse:
--------------------------------------------------------------------
Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")
xml = "<EnviarInstrucao>" &_
" <InstrucaoUnica>" &_
" <Razao> Loja Virtual Veromundo </Razao>" &_
" <IdProprio>" & left(configuracao.getAttribute("email"),7) & sorteado & "</IdProprio>" &_
" <Valores>" &_
" <Valor moeda=""BRL"">"& Replace(Replace(raiz_dados_pedido.getAttribute("valor_total"),".",""),",",".") &"</Valor>" &_
" </Valores>" &_
"  <FormasPagamento>"&_
"    <FormaPagamento>BoletoBancario</FormaPagamento>"&_
"    <FormaPagamento>CarteiraMoIP</FormaPagamento>"&_
"    <FormaPagamento>CartaoCredito</FormaPagamento>"&_
"    <FormaPagamento>DebitoBancario</FormaPagamento>"&_
"    <FormaPagamento>FinanciamentoBancario</FormaPagamento>"&_
"  </FormasPagamento>"&_
" <Mensagens>" &_
    mensagem &_
" </Mensagens>" &_
" <Pagador>" &_
" <Nome>"&NomeCliente&"</Nome>" &_
" <Email>"&Session("user_id")&"</Email>" &_
" <Identidade>" &_
" <Tipo>" &_
" <CPF>"&Session("cpf_cobranca")&"</CPF>" &_
" </Tipo>" &_
" </Identidade>" &_
" <EnderecoCobranca>" &_
" <Logradouro>"&Session("logradouro_cobranca")&"</Logradouro>"&_
" <Numero>"&Session("numero_cobranca")&"</Numero>" &_
" <Complemento>"&Session("complemento_cobranca")&"</Complemento>"&_
" <Bairro>"&Session("bairro_cobranca")&"</Bairro>" &_
" <CEP>"&Session("cep_cobranca")&"</CEP>" &_
" <Cidade>"&Session("cidade_cobranca")&"</Cidade>" &_
" <Pais>BRA</Pais>" &_
" <TelefoneFixo>"&Session("ddd_cobranca")&left(Session("telefone_cobranca"),8)&_
"</TelefoneFixo>" &_
" </EnderecoCobranca>" &_
" </Pagador>" &_
" <Recebedor>" &_
" <LoginMoIP>"&configuracao.getAttribute("email") &_
" </LoginMoIP>" &_                                     
" </Recebedor>" &_
" <URLRetorno>"& application("URLLoja") &"/recibo.asp?cod_pedido="&Session("codigo_pedido")&"</URLRetorno>" &_
" <URLNotificacao>"&application("URLLoja") &"/recibo.asp?cod_pedido="&Session("codigo_pedido")&"</URLNotificacao>" &_
" </InstrucaoUnica>" &_
"</EnviarInstrucao>"

' Configura chave de autenticacao
' ---------------------------------------------------------------------------------------

if configuracao.getAttribute("ambiente") = "PRODUCAO" then

    token = configuracao.getAttribute("token_producao")
    chave = configuracao.getAttribute("chave_producao")
    url = "https://www.moip.com.br/ws/alpha/EnviarInstrucao/Unica"

else
    token = configuracao.getAttribute("token_teste")
    chave = configuracao.getAttribute("chave_teste")
    url = "https://desenvolvedor.moip.com.br/sandbox/ws/alpha/EnviarInstrucao/Unica"


end if

moip_key = Base64Encode(token &":"& chave)

Call xmlhttp.Open("POST",url, false)
Call xmlhttp.SetRequestHeader("Authorization", "Basic "& moip_key)
Call xmlhttp.Send(xml)