Manage Learn to apply best practices and optimize your operations.

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 := "[&LTimg src=\"/"+Image+"\" Alt=\""+ImageText+"\">]";

REM "Exit the formula with the concantenated result";
Display

Dig Deeper on Domino Resources - Part 4

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-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 ...

SearchDataCenter

SearchContentManagement

Close