<% ' Display a random file ' http://www.quadcomm.com Randomize DispFile = Int(Rnd*3)+1 ' Number of files Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Instream = FileObject.OpenTextFile ("e:/inetpub/quadcomm/books/"&DispFile&".txt", 1, FALSE, FALSE) FileContent = Instream.ReadAll Response.Write (FileContent) %>