This is the text in the text file:

<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("test.txt"), 1) Response.Write(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %> <% dim fs,tfile set fs=Server.CreateObject("Scripting.FileSystemObject") set tfile=fs.CreateTextFile("test.txt") tfile.WriteLine("Hello World!") tfile.close set tfile=nothing set fs=nothing %>