<%
Dim objFSO, objTextFile
'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Apertura del file di testo
'Utilizzare, a seconda della necessità, una delle due righe di codice
'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\freeasp.tx t")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("freeasp.txt" ))
'Scrivo la prima riga di codice
objTextFile.WriteLine "Qui ci scrivo questa riga!!"
'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>