set fs =server.CreateObject("Scripting.FileSystemObject")
tempvar = cstr(fs.GetFile(server.mappath("default.html")).parentfolder ) if instr("/",tempvar)<>0 then dir1 =tempvar +"/" else dir1 =tempvar +"\" end if filename1="test.txt" if not isempty(request.form("dir")) then dir1 =request.form("dir")
end if
if not isempty(request.form("filename")) then filename1 =request.form("filename") 'set fs =server.CreateObject("Scripting.FileSystemObject")