ecco qua, naturalmente da personalizzare:codice:<% 'dichiara variabili Dim myStrF,i Dim fso, filesugg, OggFile 'prende i dati dal form dell altra pagina (metodo post) 'mette il testo in un array per dividerlo su + righe myStrF = Split( Request.Form("tabella") ,"%") 'crea l'oggetto FSO e l'oggetto FILE filesugg = Server.MapPath("nomefile.txt") set fso = Server.CreateObject("Scripting.FileSystemObject") set OggFile = fso.CreateTextFile(filesugg) ' scrive sul file For i = 0 To UBound( myStrF ) a = myStrF (i) OggFile.WriteLine ( a ) 'visualizza ciò che ha scritto nel file Next ' chiude il file e lo distrugge (non il file, ma l oggetto) OggFile.Close Set OggFile = Nothing ' distrugge l'oggetto FSO Set fso = Nothing %>

Rispondi quotando