<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<%

Dim Contenu1, Contenu2, Contenu3, Contenu4, Contenu5, Contenu6, Contenu7, Contenu8, LeMode, Fs, fichiertxt

Function EcrireDansFichier(Fichier, Ajouter)

'On Error Resume Next

If Ajouter 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 = CreateObject("Scripting.FileSystemObject")
    Set fichiertxt = Fs.OpenTextFile(Fichier, LeMode, 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,vbCrLf & "Ceci est la 2ème ligne de mon texte", False)

End Function

if Request.QueryString("T1") <> "" then
  Call EcrireDansFichier("C:\Inetpub\wwwroot\formulaire\test.txt", True)
end if

'Bonnus :p
'Call EcrireDansFichier(fichiertxt,vbCrLf & "Ceci est la 2ème ligne de mon texte", False)
%>