<%

 Dim MyWord 'What we will put into the text file.
 Dim DateTime  'Value for the date and the time.
 Dim objFSO  'FileSystemObject Variable
 Dim objFile 'File Object Variable

    MyWord = "Someone was here!"   'Put in the string into the text file.
    DateTime = Now()    'This puts in the date and the time at the server.

	'This locates our text file that will be written to.
                	strFile = Server.MapPath("info.txt")
		
	' Create an instance of the FileSystemObject
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

                ' Open the TextFile (FileName, ForAppending, AllowCreation)
		Set objFile = objFSO.OpenTextFile(strFile, 8, True)

                'Here we actually append new information to the text file.
		objFile.Write Server.HTMLEncode(MyWord)
                                objFile.Write Server.HTMLEncode(DateTime)
          
                'This gives us a new line for the next piece of information.
		objFile.WriteLine ""
	
	' Close the file and dispose of our objects
		objFile.Close
		Set objFile = Nothing
		Set objFSO = Nothing

%>