Après quelques tests sur mon problème, j'ai trouvé la solution pour Djean & cellofan. Pour contrer le problème Mid ( voir message ci-dessus ), j'ai mis mon <input type="file" name="Fichier1" accept="image/jpeg"> dans sa propre form
Ex :
<TABLE BGCOLOR=#EEEEEE WIDTH=300 NOBORDER CELLPADDING=0 CELLSPACING=0>
<tr>
  <td>
     <IMG SRC='Img/i.p.folder.drafts.gif' WIDTH=15 HEIGHT=12align=left hspace=5>  <B>T</B>itre de la source
  </td>
</tr>
<tr>
  <td><input type="text" name="Titre" value="" size="50"></td>
</tr>
<TR>
  <TD> <IMG SRC='Img/i.p.putinfolder.gif' WIDTH=15 HEIGHT=12 align=left hspace=5>  <B>A</B>jouter un fichier</TD>
</TR>
</TABLE>
<TABLE BGCOLOR=#EEEEEE WIDTH=300 NOBORDER CELLPADDING=0 CELLSPACING=0>
   <FORM name="Identification" method="post" action="gestsource.asp?Cat=2&Page=1&Etape=1" enctype="multipart/form-data">
   <TR>
      <TD colspan="2">
          <input type="file" id="UploadFichier" name="Fichier1" accept="image/jpeg" />
      </TD>
   </TR>
   <tr>
       <td WIDTH=100></td>
       <TD align="right"> <INPUT TYPE='submit' class=btnfrm VALUE="Upload">
        </TD>
    </tr>
</FORM>
</TABLE>

Si on met d'autres champs dans la même form que le champ de type file alors ça plante avec Mid.
En espérant que ça aide

J'ai testé la source et elle marche bien lorsque je ne dispose que du <input type="file" name="Fichier1" accept="image/jpeg"> mais lorsque je rajoute un champ <input name="Titre" type="text" value="" size="50"> dans la page alors j'ai le même problème que Djean & cellofan

c'est à dire :
Argument ou appel de procédure incorrect: 'Mid'
fichier:clsUplFich.asp à la ligne :DonneesDuFichier = Mid(FichierEnCours, DebutFichier, TailleDuFichier)

Si quelqu'un a su intégré un champ texte. qu'il me dis comment il a fait. Merci

Prob : l'envoi ne marche qu'une seule fois
Peux-tu éclairer ce problème ?

Merci

Les composants se trouvent dans l'onglet "Fasnet"
NMPOP3 : enveloppe avec cle
NMSMTP : enveloppe avec tire bouchon

J'ai le paquet "Fasnet" complet si tu ne l'as pas ( dclnmf50.bpl ). Le mettre dans le dossier :
"C:Program FilesBorlandDelphi5Bin"
Dans le menu "ComposantInstaller des pacquets"
Ajouter & sélectionner le nouveau fichier bpl.
Automatiquement, il ajoute l'item "Outils NesMasters Fasnet". Cocher l'item si pas déjà fait.
Faire Ok et vérifier que l'onglet FasNet est ajouter dans la pallette de composants.

Si tu veux que je t'envoi le pacquet sofiane2. Transmets-moi ton adresse mail en m'écrivant un message sur code-source. Ne donne pas ton adresse ici. Clique sur l'enveloppe à gauche de ce message.

Idem pour les autres

Le problème ( minime ) est que ça ne marche pas pour nous les belges puisque nous utilisons les termes "septante & nonante" mais l'idée peut être pratique dans certains cas.

Oui bien sûr ce code est utile si tu veux lire les fichiers INI dans un bloc-note ou autres, l'affichage est plus agréable plus facile à décortiquer. Inutile si tu veux simplement récupérer leur valeur. Il est rare d'afficher le contenu d'un fichier INI directement mais seulement de récupérer leur valeur donc ce code n'est pas à utiliser en masse. A toi de voir l'utilité que peut t'apporter ce code.

Donc ce code est utile. Merci Nebula pour ta remarque.

Grâce à ce procédé, j'ai pu gagner dans un concours NRJ ( ma première inscription en plus ). Vous trouverez mon pseudo dans les gagnants à l'adresse pour vérification :
     http://www.nrj.be/main/concours/affListeGagnants.asp?IDConcours=282

Je pense que cela incitera la plupart d'entre vous à améliorer ce source.

PS:je mets ce source à disposition des Delphistes & j'espère que ce programme ne se répendra pas trop malgré tout.

Sorry Nono40, je n'avais pas vu ta source. Il est vrai qu'il est difficile de voir si une source n'est pas déjà présente. J'avais consulter la rubrique Tutoriaux mais pas Fichier/Disque.
Malgré tout, je pense que ce source peut s'ajouter au tien.

Je ne connaissais pas cette librairie ( & où trouver ce composant ?, je développe avec Delphi 5 Entreprise ). De plus ce source à pour but de montrer manuellement comment créer un menu dynamique, et donc possède un aspect lucratif. S'il ne te sert à rien dommage mais peut-être pour les autres, cela peut leur servir.