Pedido de Compra
<% FUNCTION Moeda(valor) if trim(valor) <> "" then Valor1= mid(valor, 1, len(valor) - 2) Decima = mid(valor, len(valor) - 1, 2) end if Moeda = Valor1 & "," & Decima END FUNCTION varTid = Request("tid") 'Cod. da Transação 'Vem PELO BROWSER POST ou GET, depende do browser Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False 'caminho = "c:\inetpub\wwwroot\componentes_3d\results\" & vartid & ".xml" caminho=server.MapPath("../componentes_vbv/results/" & vartid & ".xml") objXML.load(caminho) if CStr(objXML.parseError.errorCode) <> "0" Then 'Se NAO conseguiu ler o arquivo (ele NAO FOI CRIADO...PAU) varMsg = Request.form("ars") 'Descricao do Erro varLr = Request.form("lr") 'Codigo de Retorno varFree = Request.form("free") 'Campo livre varOrderId = Request.form("orderid") 'Número do Pedido interno da Loja sPan = Request.Form("Pan")'Hash do cartão varPrice = Request.Form("Price") 'valor da compra varAUTHENT = Request.Form("AUTHENT")'tipo de Autenticação varArp = Request.Form("arp")' Código de Autorização Else Set LR = objXML.getElementsByTagName("LR") Set ARP = objXML.getElementsByTagName("ARP") Set ARS = objXML.getElementsByTagName("ARS") Set PRICE = objXML.getElementsByTagName("PRICE") Set ORDERID = objXML.getElementsByTagName("ORDERID") Set FREE = objXML.getElementsByTagName("FREE") Set PAN = objXML.getElementsByTagName("PAN") Set AUTHENT = objXml.GetElementsByTagName("AUTHENT") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(caminho) Then 'fso.DeleteFile(caminho) End If set fso=nothing 'Carregar Variaveis varMsg = ARS.item(0).text 'Descricao do Erro varLr = LR.item(0).text 'Codigo de Retorno if len(FREE.item(0).text)> 0 then varFree = FREE.item(0).text 'Campo livre end if varORDERID = ORDERID.item(0).text 'Número do Pedido interno da Loja if len(ARP.item(0).text) > 0 then varArp = ARP.item(0).text ' Código de aprovação bancária end if varPrice=PRICE.item(0).text 'valor da transacao varAUTHENT = AUTHENT.item(0).text End If VarConsumidor = session("Nome_Comprador") If cstr(varLr) <> "0" and cstr(varLr) <> "00" and cstr(varLr) <> "11" then 'Transação foi Negada '*********************************** Gerar Página de Negado *********************************** %>

Código: <%=varLr%>
<%=varMsg%>

Identificação da Transação:
<%= varTid %>

Order ID: <%= varORDERID %>



<%'********************************************************************************************** %> <% Else 'Transação Aprovada varTipo = Session("tipo") 'TIPO DA TRANSAÇÃO varProd = Session("varProd") 'Descrição do Pedido varQtd = "1" 'Quantidade varId = Session("varId") 'ID do Produto varPreco = moeda(Session("varPreco")) 'Preco Unitário varValor = Session("varValor") 'Valor Total varFrete = moeda(session("varFrete")) 'Valor do Frete ' COLHER DADOS DA SESSION VarConsumidor = session("Nome_Comprador") VarEmail = session("Email_comprador") VarTel = session("Tel_comprador") VarNome = session("Nome") VarEndereco = session("Endereco") VarBairro = session("Bairro") VarCidade = session("Cidade") VarUF = session("Estado") VarCep = session("Cep") '*********************************** Gerar Pedido de Compra *********************************** %>

Transação Aprovada

Endereço de Entrega: <%=varNome%>
<%=varEndereco%>
<%=varBairro%>
<%=varCidade%> - <%=varUF%>
<%=varCEP%>
Consumidor:
E-Mail:
<%=VarConsumidor%>
<%=VarEmail%>
Data/hora: <%=date()%> - <%=time()%>
Identificação do pedido: <%=varTid%>
Order ID: <%=varORDERID%>
Código de Autorização: <%=varArp%> <%if cStr(varLr) = "0" or cStr(varLr) = "00" Then%> - Cartão Emitido no Brasil <%else%> - Cartão Emitido no Exterior <%End IF%>
Código de retorno: <%=varlr%>
Código de Autenticação: <%=varAUTHENT%> <%if cStr(varAUTHENT) = "1" Then%> - Autenticação com Sucesso <%elseif cStr(varAUTHENT) = "2" Then%> - Autenticação Negada <%elseif cStr(varAUTHENT) = "3" Then%> - Falha na Autenticação <%elseif cStr(varAUTHENT) = "0" Then%> - Sem Autenticação (Emissor não Participa) <%elseif cStr(varAUTHENT) = "" Then%> - Transação Sem Autenticação <%End IF%>
Item Preço Qtd Total
<%=varProd%> <%=varPreco%> <%=varQtd%> R$ <%=varPreco%>

Subtotal:

R$ <%=varPreco%>
Frete: R$ <% if Trim(varFrete) <> "" then Response.Write(varFrete) end if %>
Total: R$ <% if Trim(varPreco) <> "" then Response.Write(varPreco) end if %>
Recomendamos IMPRIMIR este recibo.


<% End If %>