<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP TextStream Object</title>
</head>
<body>
<%
Dim objFSO, objStream,i
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile(Server.MapPath("MyFiles/thaicreate.txt"),true)
objStream.WriteLine("I Love ThaiCreate")
objStream.WriteLine("I Love My Live")
Response.write("Writing")
objStream.Close
Set objStream = Nothing
Set objFSO = Nothing
%>
</body>
</html>