Con este código podrás generar de manera dinámica archivos txt.
<%
thetext=Write this text in the file
Set fs = CreateObject(Scripting.FileSystemObject)
Set wfile = fs.CreateTextFile(c:\\Mydir\\myfile.txt, True)
wfile.Write (thetext)
wfile.close
Set wfile=nothing
Set fs=nothing
response.write(Text created)
%>
