msxml3.dll error '80072efd'

[Leo-nildo 0]

Olá Pessoal,

 

Estou com o seguinte erro

 

msxml3.dll error '80072efd'

 

A connection with the server could not be established

 

/pagseguro_resposta.asp, line 22

 

a linha 22 é a seguinte

 

linha 20 - objHttp.OPEN "POST", "https://pagseguro.uol.com.br/Security/NPI/Default.aspx", false

linha 21 - objHttp.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"

linha 22 - objHttp.Send str

 

Será que meu servidor esta barrando a porta pra acesso externo??

 

Grato

Leonardo

[Ted k' 126]

não entendi, posta ai o código todo!

[Leo-nildo 0]

lá vai o codigo todo

 

<%
Public Redir
Dim str
Dim Token
DIM TransacaoID, CliNome

Token = "xxxxxxxxxxxxxx"

' 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/Security/NPI/Default.aspx", 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")
'CliNome = Request.Form("CliNome")

' 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
  ' Erro de cabeçalho HTTP
ElseIf (objHttp.responseText = "VERIFICADO") Then
  If Request("TransacaoID") <> "" Then
  Call grava_pagseguro()
  End If
Else
  ' Não faz nada
End If

SET objHttp = NOTHING
%>

[Ted k' 126]

nessa linha aqui:

str = Request.Form & "&Comando=validar&Token=" & Token

o Request.Form, tem que ter o valor Request.Form("valor")