Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Gente, minha pagina de retorno do PagSeguro estava funcionando perfeitamente e de repente parou de salvar os dados no banco..
Já virei o código de cabeça pra baixo e não consigo encontrar uma solução.
Alguém pode me ajudar?
Segue a baixo o código:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.HttpMethod = "POST" Then
'o método POST indica que a requisição é o retorno da validação NPI.
Dim Token As String = "**********************"
Dim Pagina As String = "https://pagseguro.uol.com.br/pagseguro-ws/checkout/NPI.jhtml"
Dim Dados As String = HttpContext.Current.Request.Form.ToString + "&Comando=validar" + "&Token=" + Token
Dim req As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(Pagina), System.Net.HttpWebRequest)
req.Method = "POST"
req.ContentLength = Dados.Length
req.ContentType = "application/x-www-form-urlencoded"
Dim stOut As New System.IO.StreamWriter(req.GetRequestStream(), System.Text.Encoding.GetEncoding("ISO-8859-1"))
stOut.Write(Dados)
stOut.Close()
Dim stIn As New System.IO.StreamReader(req.GetResponse().GetResponseStream(), System.Text.Encoding.GetEncoding("ISO-8859-1"))
Dim Result As String = stIn.ReadToEnd()
stIn.Close()
If Result = "VERIFICADO" Then
Dim iduser As String = Request.Form("Referencia")
Dim VendedorEmail As String = Request.Form("VendedorEmail")
Dim TransacaoID As String = Request.Form("TransacaoID")
Dim Extras As Decimal = Request.Form("Extras")
'Dim Frete As String = Request.Form("Frete")
Dim ValorFrete As Decimal = Request.Form("ValorFrete")
Dim Anotacao As String = Request.Form("Anotacao")
Dim DataTransacao As Date = Request.Form("DataTransacao")
Dim TipoPagamento As String = Request.Form("TipoPagamento")
Dim StatusTransacao As String = Request.Form("StatusTransacao")
Dim CliNome As String = Request.Form("CliNome")
Dim CliEmail As String = Request.Form("CliEmail")
Dim CliEndereco As String = Request.Form("CliEndereco")
Dim CliNumero As String = Request.Form("CliNumero")
Dim CliComplemento As String = Request.Form("CliComplemento")
Dim CliBairro As String = Request.Form("CliBairro")
Dim CliCidade As String = Request.Form("CliCidade")
Dim CliEstado As String = Request.Form("CliEstado")
Dim CliCEP As String = Request.Form("CliCEP")
Dim CliTelefone As String = Request.Form("CliTelefone")
Dim ProdID_x As String = Request.Form("ProdID_1")
Dim ProdDescricao_x As String = Request.Form("ProdDescricao_1")
Dim ProdValor_x As Decimal = Request.Form("ProdValor_1")
Dim ProdQuantidade_x As Integer = Request.Form("ProdQuantidade_1")
Dim ProdFrete_x As Decimal = Request.Form("ProdFrete_1")
Dim NumItens As Integer = Request.Form("NumItens")
Dim Parcelas As Integer = Request.Form("Parcelas")
'Request.Form("ProdID_1")
'O post foi validado pelo PagSeguro.
'Seleciona a compra efetuada na tabela order do sistema
'Se for VERIFICADO e Status do PagSeguro for COMPLETO
'If Request.Form("StatusTransacao") = "Aprovado" Then
' End If
Dim conexaoMySQL As MySqlConnection
Dim myAdapter As New MySqlDataAdapter
Dim strSQL3 As String
' Dim SQLback As String
'Conexao banco de dados
conexaoMySQL = New MySqlConnection("server=**********; user id=****; password=***; database=****")
Try
conexaoMySQL.Open()
Catch myerror As MySqlException
MsgBox("Erro de conexao com o BD")
End Try
strSQL3 = "insert into faturamento (iduser, VendedorEmail, TransacaoID, Anotacao, DataTransacao, TipoPagamento, StatusTransacao, CliNome, CliEmail, CliEndereco, CliNumero, CliComplemento, CliBairro, CliCidade, CliEstado, CliCEP, CliTelefone, ProdID_x, ProdDescricao_x, ProdValor_x, ProdQuantidade_x, ProdFrete_x, NumItens, Parcelas) values ('" & iduser & "','" & VendedorEmail & "','" & TransacaoID & "','" & Anotacao & "','" & DataTransacao & "','" & TipoPagamento & "','" & StatusTransacao & "','" & CliNome & "','" & CliEmail & "','" & CliEndereco & "','" & CliNumero & "','" & CliComplemento & "','" & CliBairro & "','" & CliCidade & "','" & CliEstado & "','" & CliCEP & "','" & CliTelefone & "', '" & ProdID_x & "','" & ProdDescricao_x & "', " & ProdValor_x & "," & ProdQuantidade_x & ", " & ProdFrete_x & "," & NumItens & "," & Parcelas & ")"
' strSQL3 = "insert into faturamento (iduser, VendedorEmail, TransacaoID, Extras, ValorFrete, Anotacao, DataTransacao, TipoPagamento, StatusTransacao, CliNome, CliEmail, CliEndereco, CliNumero, CliComplemento, CliBairro, CliCidade, CliEstado, CliCEP, CliTelefone, ProdID_x, ProdDescricao_x, ProdValor_x, ProdQuantidade_x, ProdFrete_x, NumItens, Parcelas) values ('" & iduser & "','" & VendedorEmail & "','" & TransacaoID & "'," & Extras & "," & ValorFrete & ",'" & Anotacao & "',#" & DataTransacao & "#,'" & TipoPagamento & "','" & StatusTransacao & "','" & CliNome & "','" & CliEmail & "','" & CliEndereco & "','" & CliNumero & "','" & CliComplemento & "','" & CliBairro & "','" & CliCidade & "','" & CliEstado & "','" & CliCEP & "','" & CliTelefone & "', '" & ProdID_x & "','" & ProdDescricao_x & "', " & ProdValor_x & "," & ProdQuantidade_x & ", " & ProdFrete_x & "," & NumItens & "," & Parcelas & ")"
' strSQL3 = "insert into Log(Log) values ( '" & Request.Form("TransacaoID") & "')"
'Session("sql") = strSQL3
Dim myCommand3 As New MySqlCommand()
myCommand3.Connection = conexaoMySQL
myCommand3.CommandText = strSQL3
'Iniciar Query
myAdapter.SelectCommand = myCommand3
Dim myData3 As MySqlDataReader
myData3 = myCommand3.ExecuteReader()
'While myData3.Read()
' ImageButton1.ImageUrl = myData3.Item(0)
'End While
myData3.Close()
'Dim strSQL4 As String
'strSQL4 = "insert into Log(Log) values ( ' 4 ')"
'Dim myCommand4 As New MySqlCommand()
'myCommand4.Connection = conexaoMySQL
'myCommand4.CommandText = strSQL4
' ''Iniciar Query
'myAdapter.SelectCommand = myCommand4
'Dim myData4 As MySqlDataReader
'myData4 = myCommand4.ExecuteReader()
''While myData4.Read()
'' ImageButton2.ImageUrl = myData4.Item(0)
''End While
'myData4.Close()
ElseIf Result = "FALSO" Then
'o post nao foi validado
Else
'erro na integração com PagSeguro.
End If
ElseIf Request.HttpMethod = "GET" Then
'o método GET indica que a requisição é o retorno do Checkout PagSeguro para o site vendedor.
'no término do checkout o usuário é redirecionado para este bloco.
' POST não recebido, indica que a requisição é o retorno do Checkout PagSeguro.
' No término do checkout o usuário é redirecionado para este bloco.
'Response.Write("Apenas o Checkout do PagSeguro")
'Grava o Log da operacao
' Redireciona para o site apos compra
'Response.Redirect("http://ecolawyer.hospedagemdesites.ws/********")
' Dim iduser2 As String =
'Label1.Text = Session("sql")
End If
End Sub
End Class
Carregando comentários...