<% 
response.buffer=true 
response.expires = -1 
response.AddHeader "Pragma", "no-cache" 
response.AddHeader "cache-control", "no-store" 

Set fs = CreateObject("Scripting.FileSystemObject") 
adr= unescape(request.querystring("adr")) 
txt=unescape(request.querystring("txt")) 

'ouvrir le fichier dest 
Set fch = fs.OpenTextFile(adr, 8, true) 
fch.writeline txt 
fch.close 

'message 
response.write "donn&eacute;es recopi&eacute;es sur le serveur dans le fichier " & adr 
response.end 
%>