dim fpath,fname,fout
fname="index.htm"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.mappath("..\"&fname),true)
fout.writeline okfile
fout.close
response.Redirect("../index.htm")