<% 'This file saves the text in textarea taWindow to the file in fileName dim fp, fileSys, txtFile, filePath EditText = Request.form("taWindow") FileName = Request.form("fileName") fp = "c:\courses\webprog\aspsamps\TextEdit\" filePath = fp & fileName Set fileSys = CreateObject("Scripting.FileSystemObject") 'create a new, empty text file set txtFile = fileSys.CreateTextFile(filePath, true) 'write entire content to empty text file txtFile.Write(EditText) txtFile.Close %> File <% response.write(filePath) %> is written.