msxml3.dll error '80072efd'

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

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
%>

nessa linha aqui:

str = Request.Form & "&Comando=validar&Token=" & Token
o Request.Form, tem que ter o valor Request.Form("valor")