<%
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(ph_image_directory+"testfile.txt", True)
MyFile.WriteLine("This is the first test.")
MyFile.WriteLine("This is the second test.")
MyFile.Close
%>
trial2