<%
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 %> |