<% '========================================================== ' This method allows you to simply drop a new image into the ' image directory specified and it will automatically ' start showing it randomly with the others as used in http://www.netevolution.co.uk ' on the main page. '========================================================== ' Set our random images pickup directory. All files in ' this direcotory will be randomly displayed so it's ' important that the directory contain only image files ' that you want to display. Non-image files and files ' that shouldn't be displayed should not be placed into ' this directory. Const IMGS_DIR = "./images/" ' Variables for our FileSystemObject objects Dim objFSO, objFolderObject, objFileCollection, objFile ' A pair of integers for our random image selection Dim intFileNumberToUse, intFileLooper ' A "handle" to the file we choose to use Dim objImageFileToUse ' A variable to build our image tag Dim strImageSrcText ' Lets see what's in the directory: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize ' Get a count of files and use it to generate a random ' number from 1 to the count. intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 ' Set up loop control so we exit when we get to the random ' file number we just picked. intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then ' Get a "handle" on the appropriate file Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing ' Build our img src tag text strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing ' Show the image: %>

alt = "Random Image" width = "150" height = "75" border="0" />