Confirmação de Cartão Redecard

[Rique Carioca]

Estou com problemas nesse script ele parou de funcionar de uma hora para outra, alguém pode me ajudar ?

Este script utiliza uma dll da empresa w3socket.

confirma.asp

'3ª Etapa - Confirmação da Transação
    Dim params, Socket, filiacao, iErr
    
    filiacao="38390000"
    
    params = ""
    params = params & "DATA=" & data
    params = params & "&TRANSACAO=203"
    params = params & "&TRANSORIG=" & transorig
    params = params & "&PARCELAS=" & parcelas
    params = params & "&FILIACAO=" & filiacao
    params = params & "&DISTRIBUIDOR="
    params = params & "&TOTAL=" & valor
    params = params & "&NUMPEDIDO=" & numpedido
    params = params & "&NUMAUTOR=" & numautor
    params = params & "&NUMCV=" & numcv
    params = params & "&NUMSQN=" & numsqn
    params = params & "&PAX1="
    
    Set Socket = Server.CreateObject("Socket.TCP")
    Socket.DoTelnetemulation = true
    
    Socket.host = "ecommerce.redecard.com.br:443"

    Socket.open()
    iErr = Err.Number
    If iErr <> 0 Then 
        Response.Write " TESTE REALIZADO COM SUCESSO. STATUS: PROBLEMA "  & VBCRLF
    End If 
    
    Socket.sendLine("GET /pos_virtual/confirma.asp?" & Params & " HTTP/1.0")
    Socket.sendLine(vbNewLine)
    Socket.sendLine(vbNewLine)
    Socket.waitfordisconnect()

[bareta]

pergunta básica - O componente tá instalado ??? qual a mensagem de erro???