Revista Virtual

<% 'Usamos o Dynu.HTTP para ler o XML remoto Set objDynu = Server.Createobject("Dynu.HTTP") 'Abaixo atribuímos o cabeçalho objDynu.SetHeader "user-agent","DynuHTTP" objDynu.SetURL Application("URLVisanetXMLVBV") & Request.QueryString("TID") & ".xml" ResultadoVisanet = objDynu.GetURL() Set objDynu = Nothing set objFSO = Server.CreateObject("Scripting.FileSystemObject") set CriarArquivo = objFSO.CreateTextFile(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml") CriarArquivo.Close set CriarArquivo = nothing set EditaArquivo = objFSO.OpenTextFile(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml", 8) EditaArquivo.WriteLine(ResultadoVisanet) EditaArquivo.close set EditaArquivo = nothing set objFSO = nothing Set objSrvHTTP = Nothing Set objXML = Server.CreateObject("MSXML2.DOMDocument") objXML.async = False caminho = Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml" objXML.load(caminho) If CStr(objXML.parseError.errorCode) <> "0" Then Response.Write(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml
") Response.Write (Application("FestrTxtErroTratXML") & "Erro>" & CStr(objXML.parseError.errorCode)) Response.end End If Set varTID=objXML.getElementsByTagName("TID") Set varLR = objXML.getElementsByTagName("LR") Set varARP = objXML.getElementsByTagName("ARP") Set varPRICE = objXML.getElementsByTagName("PRICE") Set varORDERID = objXML.getElementsByTagName("ORDERID") Set varFREE = objXML.getElementsByTagName("FREE") Set varPAN = objXML.getElementsByTagName("PAN") Set varBANK = objXML.getElementsByTagName("BANK") Set varARS = objXML.getElementsByTagName("ARS") Set varAUTHENT = objXML.getElementsByTagName("AUTHENT") TID = varTID.item(0).text session("TID") = TID LR = varLR.item(0).text session("LR") = LR ARP = varARP.item(0).text session("ARP") = ARP PRICE = varPRICE.item(0).text session("PRICE") ORDERID = varORDERID.item(0).text session("ORDERID") = ORDERID FREE = varFREE.item(0).text session("FREE") = FREE PAN = varPAN.item(0).text session("PAN") = PAN BANK = varBANK.item(0).text session("BANK") = BANK ARS = varARS.item(0).text session("ARS") = ARS AUTHENT = varAUTHENT.item(0).text session("AUTHENT") = AUTHENT Set objSrvHTTP = Nothing Session("codigo_pedido") = ORDERID If Cdbl(LR) <> Cdbl(00) And Cdbl(LR) <> Cdbl(11) Then compra = "Negada" cod_erro = LR msg_erro = ARS End If identificacao_pedido = TID If compra = "Negada" Then MSGSTATUS = "Não autorizada" MSGRET = Replace(msg_erro, "ç", "") Else If Request("tid") <> "" Then 'Atualiza dados da transação Redecard no banco de dados connStr = Application("StringConexaoODBC") Set objConnection = CreateObject("ADODB.Connection") objConnection.Open connStr Set RS_PedidoRevistaG = CreateObject("ADODB.Recordset") RS_PedidoRevistaG.CursorLocation = 3 RS_PedidoRevistaG.CursorType = 0 RS_PedidoRevistaG.LockType = 3 SQLCmd = "SELECT * FROM AssinantesRevistaG WHERE CodigoPedido=" & Session("OrderIDRecibo") RS_PedidoRevistaG.Open SQLCmd, connStr RS_PedidoRevistaG("PagtoConfirmado") = "S" RS_PedidoRevistaG("AutenticacaoVISA") = autent RS_PedidoRevistaG.Update RS_PedidoRevistaG.Close Set RS_PedidoRevistaG = Nothing Set objConnection = Nothing ' Exibe as váriaveis de retorno Response.write Application("RecTxtCodigoTrans") & ": " & session("TID") & "
" Response.write Application("RecTxtCodigoResposta") & ": " & session("LR") & "
" Response.write Application("RecTxtCodigoAutorizacao") & ": " & session("ARP") & "
" If session("ARS") <> "" Then Response.write Application("RecTxtMsgTransacao") & ": " & session("ARS") & "
" End If If session("AUTHENT") <> "" Then Response.write Application("RecTxtTipoAutent") & ": " & session("AUTHENT") & "
" End If Response.write "
" End If End If '**************************************************************************************************************** %> Revista Virtual

Não deixe de tirar suas dúvidas conosco.