Random Web Page Images

The following code will display 1 of 5 random images from the HTML directory on
the server.

Each time a browser loads your web page, a randomly selected image will be
displayed.

It is to be used in a "Text" field that is "Computed for display".
REM "The following code will display 1 of 5 random images from the HTML
directory on the server";
REM "and change the alternate text used for deferred loading each time the page
is loaded";

REM "List of GIF or JPG images to be randomized";
ImageList := "image1.gif~image2.gif~image3.gif~image4.gif~image5.gif";

REM "Matching list of alternate (deferred loading) text for images in the same
sequence as the images";
AltText := "This is the text for image 1~This is the text for image 2~This is
the text for image 3~This is the text for image 4~This is the text for image 5";

REM "Generate whole random number between 1 and 5";
Number := 1+(@Round(@Random*4));

REM "Select image from the list using the random number as selection variable";
Image := @Word(ImageList;"~";Number);

REM "Select alternate (deferred loading) text from the list using the random
number as selection variable";
ImageText := @Word(AltText;"~";Number);

REM "Prepare the web display string via concantenation";
Display := "[<img src=\"/"+Image+"\" Alt=\""+ImageText+"\">]";

REM "Exit the formula with the concantenated result";
Display
This was first published in November 2000

Dig deeper on Domino Resources - Part 4

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close