[Resolvido] PagSeguro

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