WriteTxtfl

<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
'SCRIVO SU PROVA.TXT DATA ED ORA

Set OutStream=FileObject.CreateTextFile(Server.MapPath("prova.txt"),true,0)
Outstream.WriteLine Now()
OutStream.Close
Set OutStream=Nothing
Response.Write "Ho scritto sul file prova.txt"
Set FileObject=Nothing
%>