A How To: Random album image with ASP

[John]

snip..... old code. see below

[John]

do we even need index.html file in the pic paths, its a blank file yes?

[John]

Revised. Here is the ASP code that will display all images in a path, if anyone wants it i can modify to resize the pic on the fly instead of set it to 100x100 but it suits my needs .

in head:

Code Select Expand

<%

' Initialize the random number generator. love asp randomize :) .
Randomize

Dim intImageNumber ' A var to store our randomn number

' Set our random images pickup directory.
Const IMGS_DIR = "./coppermine/albums/userpics/YOUR_GALLERY/"

' 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

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

in body wherever:

Code Select Expand

<img src= "<%= strImageSrcText %>" width ="100" height="100" alt= "Random Gallery Image"/>

John