[Resolvido] PagSeguro

[The Jhunior 0]

Olá, estou usando o Pagseguro em um site que estou desenvolvendo e na parte de Retorno Automatico ele Executa a COmando "Não Faz Nada"

 

Segue codigo

 

<%
Dim str
Dim Token
DIM TransacaoID, CliNome


Token = "999999999999999999999"


' Recebe o POST enviado pela PagSeguro e armazena na variável str
str = Request.Form & "&Comando=validar&Token=" & Token


' Envia para a PagSeguro a string para validação dos dados
SET objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
' SET objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
' SET objHttp = Server.CreateObject("Microsoft.XMLHTTP")

objHttp.OPEN "POST", "https://pagseguro.uol.com.br/pagseguro-ws/checkout/NPI.jhtml", false
objHttp.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send str


' Recupera as variáveis postadas pela PagSeguro e armazena nas variáveis locais
TransacaoID = Request.Form("TransacaoID")
Referencia = Request.Form("Referencia")
TipoFrete = Request.Form("TipoFrete")
ValorFrete = Request.Form("ValorFrete")
TipoPagamento = Request.Form("TipoPagamento")
CliNome = Request.Form("CliNome")
CliEmail = Request.Form("CliEmail")
CliEndereco = Request.Form("CliEndereco")
CliNumero = Request.Form("CliNumero")
CliComplemento = Request.Form("CliComplemento")
CliBairro = Request.Form("CliBairro")
CliCidade = Request.Form("CliCidade")
CliEstado = Request.Form("CliEstado")
CliCEP = Request.Form("CliCEP")
CliTelefone = Request.Form("CliTelefone")
ProdID_x = Request.Form("ProdID_x")
ProdDescricao_x = Request.Form("ProdDescricao_x")
ProdValor_x = Request.Form("ProdValor_x")
ProdQuantidade_x = Request.Form("ProdQuantidade_x")
ProdFrete_x = Request.Form("ProdFrete_x")
ProdExtras_x = Request.Form("ProdExtras_x")
NumItens = Request.Form("NumItens")
Anotacao = Request.Form("Anotacao")
DataTransacao = Request.Form("DataTransacao")


' Confirma quando o NPI está VERIFICADO ou FALSO. Se FALSO, então ignore o NPI
' SOMENTE SALVE OS DADOS CASO O RESULTADO SEJA IGUAL À "VERIFICADO"
If (objHttp.status <> 200 ) Then

  response.write  "Não foi salvo"
  
ElseIf (objHttp.responseText = "VERIFICADO") Then
<!--#include file="conexao2.asp" -->
Dim  sqlcli, rscli, sqlcli2, sqlped

sqlcli2="insert Into clientes(nome,telefone,email,endereco,numero,bairro,cidade,estado,cep)" & _
"Values('"&CliNome&"','"&CliTelefone&"','"&CliEmail&"','"&CliEndereco&"','"&CliNumero&"','"&CliBairro&"','"&CliCidade&"','"&CliEstado&"','"&CliCEP&"') "


sqlped="insert Into pedido(ID_transacao,referencia,tipofrete,valorfrete,anotacao,datacompra,tipopagamento,ID_produto,produtodesc,produtovalor,produtoquant,produtofrete,produtoextra,status)" & _
"Values('"&TransacaoID&"','"&Referencia&"','"&TipoFrete&"','"&ValorFrete&"','"&Anotacao&"','"&DataTransacao&"','"&TipoPagamento&"','"&ProdID_x&"','"&ProdDescricao_x&"','"&ProdValor_x&"','"&ProdQuantidade_x&"','"&ProdFrete_x&"','"&ProdExtras_x&"',Aguardando Pagamento) "

Call AbreConn ()

sqlcli = "Select * From clientes where email = " &CliEmail

Set rscli = conecta.Execute(sqlcli)

if rscli.eof then

Call AbreConn ()

conecta.Execute(sqlcli2)

Call AbreConn ()

conecta.Execute(sqlped)

else

Call AbreConn ()

conecta.Execute(sqlped)

end if

response.write "Salvo com sucesso!"

Else

response.write "Ele não fez nada"

End If


SET objHttp = NOTHING

%>

 

Se alguem puder me ajudar agradeço

[xanburzum 169]

ele gera algum erro ???

[The Jhunior 0]

Não, ele cai no IF do PagSeguro.

 

SOMENTE SALVE OS DADOS CASO O RESULTADO SEJA IGUAL À "VERIFICADO"
If (objHttp.status <> 200 ) Then

response.write  "Erro"
  
ElseIf (objHttp.responseText = "VERIFICADO") Then

'Codigo para salvar no banco de dados

Else

response.write "Ele não fez nada"

Ele está executando o ultimo else, quero que ele execute o elseif, copia o código exatamente igual, ai não o que está errado.

 

End If

 

 

SET objHttp = NOTHING

 

%>

[Cesão 1]

Este post foi criado em 2008, mas estou com o mesmo problema. Copiei exatamente a página de retorno da Visie para o PagSeguro em ASP e ele cai direto no último else, ou seja, o POST do PagSeguro vem vazio. Alguém sabe o que pode ser?

[Rodrigo Lemela 0]

Este post foi criado em 2008, mas estou com o mesmo problema. Copiei exatamente a página de retorno da Visie para o PagSeguro em ASP e ele cai direto no último else, ou seja, o POST do PagSeguro vem vazio. Alguém sabe o que pode ser?

 

Cesão,

Tive o mesmo problema durante mto tempo...

Mas resolvi...

Me add no MSN e me cobra isso na segunda...

Eu te passo a página com tudo detalhado...

 

Meu msn é remela@gmail.com...

So me avisa que é daqui do forum, senão fico perdido na hora de add as pessoas.

rs.

 

Abs.

[Cesão 1]

faz uma pesquisa no fórum que existem vários exemplos...

 

xan, se você achou exemplos, por favor, poste aqui. Isso seria de grande ajuda. Eu busquei no fórum todo e achei exemplos também, mas nenhum relacionado à isso que preciso. Muitas páginas de retorno automático, mas a maioria delas "velhas", de quando o PagSeguro ainda usava .NET! Usei algumas outras que não adiantaram de nada, cheia de gambiarras. Então, se tiver os exemplos, gostaria que postasse aqui para ajudar não só a mim, mas a todos os posts não resolvidos, como este aqui em que o criador do post ficou sem ajuda alguma. Obrigado.

 

Rodrigo, cara, vou te adicionar sim. Preciso muito desta página pois vou entregar um projeto esta semana que está sendo produzido há 3 meses e só falta isso! Valeu mesmo pelo help!

[Rodrigo Lemela 0]

Fala ae Cesão,

 

Já te passei a página por email e já está resolvido...

 

Admin, se você puder fechar esse tópico, be my guest. ;D

 

Valeus !

[xanburzum 169]

beleza pessoal