<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 06/07/07
' Arquivo: dados_compra_bradesco.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 02/04/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
%>
<%
'Verifica a existência de caracteres inválidos inclui neste caso palavras como UPDATE/DELETE/SELECT/ETC...
Call Valida_Request()
'Carrega a configuração dos caminhos a serem usuados na Loja
Call identifica_caminhos()
If request("lang") <> "" Then
Session("requestIdioma") = request("lang")
varLang = Session("requestIdioma")
End If
'Caso exista um cookie de algum pedido anterior o id_transacao será recriado a partir dele.
If session("id_transacao") = "" And Request.Cookies(Application("NomeLoja"))("id_transacao") <> "" Then
session("id_transacao") = Request.Cookies(Application("NomeLoja"))("id_transacao")
session("user_id") = Request.Cookies(Application("NomeLoja"))("user_id")
End if
'Se existir a id_transacao o idioma de exibição será capturado do arquivo do pedido
If session("id_transacao") <> "" Then
If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then
varLangUser = pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","idioma")
session("varLangUser") = varLangUser
Else
session("id_transacao") = ""
session("varLangUser") = ""
End If
End If
If varLangUser <> "" Then
varLang = varLangUser
Else
varLang = Application("varLang")
End if
varSkin = "default"
'Assume a string dos idiomas configurados
checkIdioma = Application("idiomasconfigurados")
veIdiomas = Split(checkIdioma, ",")
%>
<%
'Verifica a existência de caracteres inválidos inclui neste caso palavras como UPDATE/DELETE/SELECT/ETC...
Call Valida_Request()
Response.Buffer = TRUE
codigo_pedido = request("pedido")
'Abre conexão com o Banco de dados
Call abre_conexao(Conexao)
'Abre conexao ao XML dos meios de pagto.
forma_pagamento = "Unibanco"
Function CliquePague()
Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRoot)
Set configuracao = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='"&forma_pagamento&"']")
Set RS_dadosUnibanco = CreateObject("ADODB.Recordset")
Set RS_dadosUnibanco.ActiveConnection = Conexao
RS_dadosUnibanco.CursorLocation = 3
RS_dadosUnibanco.CursorType = 0
RS_dadosUnibanco.LockType = 3
RS_dadosUnibanco.Open "SELECT codigo_pedido, total FROM Pedidos WHERE codigo_pedido = "&codigo_pedido&"", Conexao
If Not RS_dadosUnibanco.EOF Then
sIdentificacaoLocaweb = configuracao.getAttribute("IdentificacaoLocaweb")
sAmbiente = configuracao.getAttribute("ambiente")
curTotal = FormatNumber(RS_dadosUnibanco("total"))
Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Monta os valores postados
valores = "modulo=UNIBANCO"
valores = valores & "&identificacao=" & sIdentificacaoLocaweb
valores = valores & "&ambiente=" & sAmbiente
valores = valores & "&PEDIDO=" & codigo_pedido
valores = valores & "&VALOR=" & curTotal
valores = valores & "&operacao=Pagamento"
'Processa a postagem
objSrvHTTP.open "POST", Application("URLUnibanco"), False
objSrvHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objSrvHTTP.send valores
'Verifica erro na postagem
If objSrvHTTP.Status = 200 Then
response.write objSrvHTTP.responseText
Else
Response.write "Error: (" & objSrvHTTP.Status & ") " & objSrvHTTP.statusText
End If
Set objSrvHTTP = Nothing
' Grava os dados da transação no banco de dados
Call GravaTransacaoUnibanco(codigo_pedido,vazio,vazio)
Else
Response.write Application("DadosUnibancoTxtPedNaoLoc")
End If
RS_dadosUnibanco.Close
Set RS_dadosUnibanco = nothing
Set configuracao = Nothing
Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRoot)
End Function
%>
<%=Application("nomeloja")%>
<%=Application("DadosUnibancoTxtTit")%>
<%
'Chamada da função CliquePague
CliquePague()
%>