Boa noite amigos... Então, passei a noite testando o retorno do pagseguro, e não consigo pegar os dados da transação!! Veja abaixo meu código. Acredito que não tem nada de errado no codigo, já que peguei da documentação e já vi pela web q é isso ai mesmo! O retorno ocorre beleza, porem cai naquela ultimo caso "Post não recebido!". Não sei pq não está retornando o post! Agradeço desde já a ajuda de todos!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Untitled Document</title>
</head>
<body>
<%
response.ContentType = "text/HTML"
response.Charset = "ISO-8859-1"
Dim TOKEN
TOKEN = "-- meu token --"
timeout = 20
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"
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
t="Verificado"
TransacaoID = trim(Request.Form("TransacaoID"))
Anotacao = trim(Request.Form("Anotacao"))
DataTransacao = trim(Request.Form("DataTransacao"))
TipoPagamento = trim(Request.Form("TipoPagamento"))
StatusTransacao = trim(Request.Form("StatusTransacao"))
CliNome = trim(Request.Form("CliNome"))
CliEmail = trim(Request.Form("CliEmail"))
Produto = trim(Request.Form("ProdId"))
elseif result = "FALSO" then
t="Falso - O post não foi validado pelo PagSeguro."
else
t="Erro de intregramao com o PagSeguro."
end if
else
t="Post não recebido!"
%>
<h3>Obrigado por efetuar a compra.</h3>
<%
end if
%>
<%=t%>//Transação id:<%=TransacaoID%>//Transação id:<%=DataTransacao%>//Email cliente:<%=CliEmail%>
</body>
</html>