Sub CreateAfile
   Dim fso, MyFile
   Set fso = server.CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile(server.mappath("./")+"testfile.txt", True)
   MyFile.WriteLine("This is a test.")
   MyFile.Close
End Sub