Array
(
)

Recuperando as informações com XML

Eduardo Silva
   - 01 jul 2014

Alguem já fez esse modo de pagamento cielo com asp classico ??
<%
Function xml()

msg = "<?xml version='1.0' encoding='ISO-8859-1'?>"
msg = msg & "<requisicao-transacao id='f094958b-3b68-4c0b-9e68-3137f24fb308' versao='1.3.0'>"
msg = msg & "<dados-ec>"
msg = msg & "<numero>1006993069</numero>"
msg = msg & "<chave>25fbb99741c739dd84d7b06ec78c9bac718838630f30b112d033ce2e621b34f3</chave>"
msg = msg & "</dados-ec>"
msg = msg & "<dados-portador>"
msg = msg & "<numero>4551870000000183</numero>"
msg = msg & "<validade>201508</validade>"
msg = msg & "<indicador>1</indicador>"
msg = msg & "<codigo-seguranca>973</codigo-seguranca>"
msg = msg & "<token></token>"
msg = msg & "</dados-portador>"
msg = msg & "<dados-pedido>"
msg = msg & "<numero>1739114311</numero>"
msg = msg & "<valor>1000</valor>"
msg = msg & "<moeda>986</moeda>"
msg = msg & "<data-hora>2013-02-18T15:06:15</data-hora>"
msg = msg & "<descricao>[origem:172.16.34.66]</descricao>"
msg = msg & "<idioma>PT</idioma>"
msg = msg & "<soft-descriptor></soft-descriptor>"
msg = msg & "</dados-pedido>"
msg = msg & "<forma-pagamento>"
msg = msg & "<bandeira>visa</bandeira>"
msg = msg & "<produto>1</produto>"
msg = msg & "<parcelas>1</parcelas>"
msg = msg & "</forma-pagamento>"
msg = msg & "<url-retorno>http://localhost/pag/retorno.asp</url-retorno>"
msg = msg & "<autorizar>0</autorizar>"
msg = msg & "<capturar>false</capturar>"
msg = msg & "<gerar-token>false</gerar-token>"
msg = msg & "<avs><![CDATA[<dados-avs><cpf>12345678901</cpf><endereco>Rua Teste AVS</endereco><complemento>Casa</complemento>"
msg = msg & "<numero>123</numero><bairro>Vila AVS</bairro><cep>12345-123</cep></dados-avs>]]></avs>"
msg = msg & "</requisicao-transacao>"
Set objSrvHTTP = Server.CreateObject("MSXML2.XMLHTTP.6.0")
'Meu servidor tem a versão 6.0 instalada, se não souber qual é a sua chame somente "MSXML2.XMLHTTP"
'URL de Produção
'objSrvHTTP.open "POST", "https://ecommerce.cbmp.com.br/servicos/ecommwsec.do", false
'URL de Homologação
objSrvHTTP.open "POST", "https://qasecommerce.cielo.com.br/servicos/ecommwsec.do", false
objSrvHTTP.setRequestHeader "POST", "/servicos/ecommwsec.do HTTP/1.1"
objSrvHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objSrvHTTP.setRequestHeader "Host", "qasecommerce.cielo.com.br"
objSrvHTTP.setRequestHeader "Content-Length", contador
objSrvHTTP.Send "mensagem="&msg 'Aqui está o segredo que muita gente tem esquecido, sem colocar o "mensagem=" dá erro 001 sempre.
If objSrvHTTP.readyState = 4 And objSrvHTTP.status = 200 Then
retorno = objSrvHTTP.responseXML.xml
set xmlRss = Server.CreateObject("Microsoft.XMLDOM")
xmlRss.async = false
xmlRss.loadXml(xmlhttp.ResponseText)
'Response.Write("<xmp>"&retorno&"</xmp>")
End If
end Function
%>
<% xml() %>