<% ' 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 ("d:/home/bikerfox/randombackground/"&DispFile&".txt", 1, FALSE, FALSE) FileContent = Instream.ReadAll Response.Write (FileContent) %>
You need to upgrade your Flash Player
Visit:
adobe.com
and download the latest flash player