<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_processa_captura.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 17/10/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# %> <% 'Carrega a configuração dos caminhos a serem usuados na Loja Call identifica_caminhos() varLang = Application("varLang") varSkin = "default" 'Verifica quais os idiomas configurados na loja checkIdiomaTemp = Split(Application("idiomasconfigurados"),",") 'Assume a string dos idiomas configurados checkIdioma = Application("idiomasconfigurados") ' Desloga o usuário da administração If Request("logoff") = "yes" Then session.abandon response.redirect "default.asp" End If Server.execute("../config/templates/"&varLang&"/textos_lang.asp") %> <% ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMPed&"") 'Abre conexão ao banco de dados Call abre_conexao(conexao) ' ---- Retorno captura Visanet If Request("tid") <> "" Then ' status da captura ' tabela de códigos de retorno '============================= ' 0 = capturado com sucesso ' 1 = autorizacao negada ' 3 = captura ja efetuada ' 99 = autorizacao inexistente (falha ou qualquer outra coisa) tid = Request("tid") cap = Request("cap") ars = Request("ars") If Request("lr") = "" Then lr = Request("cod") Else lr = Request("lr") End if 'Trata o valor de retorno do status da captura Select Case (lr) Case "0" resultado = "Captura efetuada com sucesso." Case "1" resultado = "Captura foi negada." Case "3" resultado = "Captura já foi efetuada." Case Else resultado = "Falha na captura." End Select 'Cria o objeto RecordSet a tabela Transacao_Visanet Set RS_Visanet = CreateObject("ADODB.Recordset") Set RS_Visanet.ActiveConnection = Conexao RS_Visanet.CursorLocation = 3 RS_Visanet.CursorType = 0 RS_Visanet.LockType = 3 'Consulta o pedido capturado no banco de dados na tabela de Transacao_Visanet RS_Visanet.Open "SELECT Transacao_Visanet.codigo_pedido, Transacao_Visanet.captura, Transacao_Visanet.msg_captura, Transacao_Visanet.tid FROM Transacao_Visanet WHERE Transacao_Visanet.tid = '"& tid &"'", Conexao codigo_pedido = RS_Visanet("codigo_pedido") 'Atualiza os dados da captura na tabela RS_Visanet("captura") = lr RS_Visanet("msg_captura") = resultado RS_Visanet.Update 'Fecha e libera o objeto RecordSet RS_Visanet.Close Set RS_Visanet = nothing If lr = "0" Then 'Cria o objeto RecordSet a tabela Pedidos Set RS_Usuarios_update = CreateObject("ADODB.Recordset") Set RS_Usuarios_update.ActiveConnection = Conexao RS_Usuarios_update.CursorLocation = 3 RS_Usuarios_update.CursorType = 0 RS_Usuarios_update.LockType = 3 'Consulta o pedido capturado no banco de dados na tabela de Pedidos RS_Usuarios_update.Open "SELECT pago, atendido, codigo_pedido FROM Pedidos WHERE codigo_pedido =" & codigo_pedido & "", Conexao 'Atualiza o pedido para pago, caso a captura tenha ocorrido com sucesso. RS_Usuarios_update("pago") = "1" RS_Usuarios_update.Update 'Fecha e libera o objeto RecordSet RS_Usuarios_update.Close Set RS_Usuarios_update = Nothing End if End If ' ---- Retorno captura Amex If Request("txnResponseCode") <> "" Then txnResponseCode = Request("txnResponseCode") 'Cria o objeto RecordSet a tabela Transacao_Amex Set RS_Amex = CreateObject("ADODB.Recordset") Set RS_Amex.ActiveConnection = Conexao RS_Amex.CursorLocation = 3 RS_Amex.CursorType = 0 RS_Amex.LockType = 3 'Consulta o pedido capturado no banco de dados na tabela de Transacao_Visanet RS_Amex.Open "SELECT Transacao_Amex.codigo_pedido, Transacao_Amex.status_captura FROM Transacao_Amex WHERE Transacao_Amex.codigo_pedido = "& Request("MerchTxnRef") &"", Conexao codigo_pedido = RS_Amex("codigo_pedido") 'Atualiza os dados da captura na tabela RS_Amex("status_captura") = txnResponseCode RS_Amex.Update 'Fecha e libera o objeto RecordSet RS_Amex.Close Set RS_Amex = nothing If txnResponseCode = "0" Then 'Cria o objeto RecordSet a tabela Pedidos Set RS_Usuarios_update = CreateObject("ADODB.Recordset") Set RS_Usuarios_update.ActiveConnection = Conexao RS_Usuarios_update.CursorLocation = 3 RS_Usuarios_update.CursorType = 0 RS_Usuarios_update.LockType = 3 'Consulta o pedido capturado no banco de dados na tabela de Pedidos RS_Usuarios_update.Open "SELECT pago, atendido, codigo_pedido FROM Pedidos WHERE codigo_pedido =" & codigo_pedido & "", Conexao 'Atualiza o pedido para pago, caso a captura tenha ocorrido com sucesso. RS_Usuarios_update("pago") = "1" RS_Usuarios_update.Update 'Fecha e libera o objeto RecordSet RS_Usuarios_update.Close Set RS_Usuarios_update = Nothing End if End If 'Fecha conexão ao banco de dados Call fecha_conexao %>