<%
testo = request.form("testobase")
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\txt\presentazion e.txt")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("..\txt\prese ntazione.txt"))
'Scrivo la prima riga di codice
objTextFile.Writeline server.htmlencode(testo)
'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>