Code: <% dim filesys, demofile, txtstream set filesys = CreateObject ("Scripting.FileSystemObject") set demofile = filesys.CreateTextFile ("c:\somefile.txt", true) set demofile = filesys.GetFile("c:\somefile.txt") set txtstream = demofile.OpenAsTextStream (2, -2) txtstream.Write "This will overwrite any text already in the file." txtstream.Close %>