Problème avec objet XMLHTTP

Bonjour,

Dans le développement de mon site, je souhaite envoyer un fichier sur un autre site qui lui fera son traitement.
Hors, je n'arrive pas à envoyer ce fichier.
Il me donne cette erreur :
msxml3.dllerreur '80004005'

Erreur non spécifiée

/robot-pour-piscine/asp/gestion/exportation/envoi.asp, ligne 24

Et voici mon code. Dans un premier temps je crée et initialise un objet ADO.stream pour lui indiquer quel fichier envoyé.
Et ensuite viens la création de l'objet XMLHTTP. L'état de l'obet reste toujours à 1(début de l'envoi des données)
La ligne 24 qui crée l'erreur correspond à : reqstatus = objXMLHTTP.status

<%    strImagePath = Server.MapPath("./" & Request.form("f"))   ' nom du fichier à transmettre
    Set objADOStream = server.createobject("ADODB.Stream")
    objADOStream.Open
    objADOStream.Type = 2
    objADOStream.LoadFromFile strImagePath
    Response.Write("sending " & strImagePath & " ...<br>")
    URLString = "http://serveur/web/hypermache/recup.asp?f="& Request.form("f")
    Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
    objXMLHTTP.Open "POST", URLString, true, "pc5", "pc5"
   
    response.write objXMLHTTP.readystate&"<br>"
   
    objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objXMLHTTP.setRequestHeader "charset", "ISO-8859-1"
    objXMLHTTP.send (objADOStream)
   
    reqstatus = objXMLHTTP.status
    txtResult = objXMLHTTP.responseText        ' ou ResponseBody !
    Set objXMLHTTP = nothing
   
    Response.Write("reqstatus = '" & reqstatus & "'<br>")
    Response.Write("txtResult = '" & txtResult & "'<br>")
    objADOStream.Close
    set objADOStream=Nothing
%>

Si quelqu'un aurait une solution, çà serait gentil. Merci d'avance.

Kcin