<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.MapPath("file.txt"),true,0)
text="Hello world!"
Outstream.WriteLine(text)
OutStream.Close
Set OutStream=Nothing
Response.Write "I wrote on prova.txt"
Set FileObject=Nothing
%>