<%
Dim objFSO, objStream,i
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile(Server.MapPath("files.txt"),true)
objStream.WriteLine("TEXT TEXT")
objStream.Close
Set objStream = Nothing
Set objFSO = Nothing
%>