<%
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile(server.mappath("\sito\docum\tes t.txt"), True)
a.WriteLine("riga 1")
a.WriteLine("riga 2")
a.WriteLine("riga 3")
a.WriteLine("riga 4")
a.Close
%>
<% Response.Redirect("leggifile.asp")%>