<%@ Language=VBScript %>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile(server.mappath("formulaire.txt"))
Response.Write a.ReadAll
rem while not a.AtEndOfStream
rem response.Write a.ReadLine
rem Response.Write chr$(13)
rem wend
a.Close
%>