[Resolvido] Retorno PagSeguro

Este arquivo executa as ações de enviar um POST de volta ao verificador de POST do PagSeguro e verifica se o POST recebido é VERIFICADO ou FALSO. Coloque seu retorno automático apontar para este arquivo e altere o arquivo nas seguintes linhas.

'TOKEN = "cole aqui o token do vendedor"

Descomente esta linha (linha 7) e cole o TOKEN gerado no painel de controle de sua conta PagSeguro.

if result = "VERIFICADO" then

'O post foi validado pelo PagSeguro.

elseif result = "FALSO" then

'O post não foi validado pelo PagSeguro.

else

'Erro na integração com o PagSeguro.

end if

Coloque aqui (linha 65) o seu código que deve ser executado caso o POST seja válido ou não. Aconselhamos a fazer um log de tudo o que acontecer nesta parte para entender o que aconteceu com seu POST.

<h3>Obrigado por efetuar a compra.</h3>

Nesta linha (linha 78), cole o código HTML que deve aparecer ao seu comprador quando ele finalizar a compra junto ao PagSeguro.

<%
response.ContentType = "text/HTML"
response.Charset = "ISO-8859-1"

Dim TOKEN

'TOKEN = "cole aqui o token do vendedor"

timeout = 20 'Timeout em segundos

function notificationPost()

	postdata = "Comando=validar&Token=" & TOKEN

	For each x In Request.Form
 valued = clearStr(request.Form(x))
 postdata = postdata & "&" & x & "=" & valued
	Next

	notificationPost = verify(postdata)

end Function

function clearStr(str)

	str = replace(str, "'","\'")
	clearStr = str

end function

function verify(data)

	strUrl = "[https://pagseguro.uol.com.br/pagseguro-ws/checkout/NPI.jhtml"](https://pagseguro.uol.com.br/pagseguro-ws/checkout/NPI.jhtml)

	Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP")

	xmlHttp.Open "POST", strUrl, False
	xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
	xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
	xmlHttp.setRequestHeader "content-length", Len(data)
	xmlHttp.Send(data)

	retorno = xmlHttp.responseText

	xmlHttp.abort()

	set xmlHttp = Nothing

	verify = retorno

end function

if Request.Form.count > 0 then

result = notificationPost()

if Request.Form("TransacaoID") <> empty then
transacaoID = Request.Form("TransacaoID")
Else
transacaoID = ""
end If

if result = "VERIFICADO" then
'O post foi validado pelo PagSeguro.
elseif result = "FALSO" then
'O post não foi validado pelo PagSeguro.
else
'Erro na integração com o PagSeguro.
end if

else
' 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.
%>

 <h3>Obrigado por efetuar a compra.</h3>

 <%

end if %>

mais detalhes