<%@ LANGUAGE="VBSCRIPT" %> <%option explicit%> <% Function EcrireDansFichier(Fichier, Contenu, Ajouter) On Error Resume Next If Ajouter = True Then LeMode = 8 Else LeMode = 2 End If Contenu1 = Request.QueryString("T1") Contenu2 = Request.QueryString("T2") Contenu3 = Request.QueryString("T3") Contenu4 = Request.QueryString("T4") Contenu5 = Request.QueryString("T5") Contenu6 = Request.QueryString("T6") Contenu7 = Request.QueryString("T7") Contenu8 = Request.QueryString("T8") Set Fs = Server.CreateObject("Scripting.FileSystemObject") Set fichiertxt = Fs.OpenTextFile("C:\Inetpub\wwwroot\formulaire\test.txt", 8, true) fichiertxt.Write(Contenu1) fichiertxt.Write(Contenu2) fichiertxt.Write(Contenu3) fichiertxt.Write(Contenu4) fichiertxt.Write(Contenu5) fichiertxt.Write(Contenu6) fichiertxt.Write(Contenu7) fichiertxt.Write(Contenu8) fichiertxt.Close Set fichiertxt = Nothing Set Fs = Nothing Call EcrireDansFichier(fichiertxt,"Ceci est mon texte", True) Call EcrireDansFichier(fichiertxt,vbCrLf & "Ceci est la 2ème ligne de mon texte", False) End Function %> Formulaire


  Enrengistrement d'un nouveau soft

                                                                                                                                      Exemple:
Nom
Editeur
URL éditeur
Version
Licence
Notes
Déscription
Créateur du formulaire