<% ' 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

IMG_0543
IMG_0544
IMG_0545
IMG_0546
IMG_0547
IMG_0548
IMG_0549
IMG_0550
IMG_0551
IMG_0788