<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.MapPath("file.txt"),true,0)
testo="frase da scrivere"
Outstream.WriteLine(testo)
OutStream.Close
Set OutStream=Nothing
Response.Write "Ho scritto sul file prova.txt"
Set FileObject=Nothing
%>