Scrolling random slide show
G'day,
On my web site (www.ils.org.au), on the top right corner I have a scrolling slide show called by an .asp program.
The problem is it always shows the same sequence of slides while I want a random order.
Can anyone help me?
Here is the routine I use
Code:
<%
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(Rnd * intHighestNumber) + 1
'response.write (RandomNumber & " ")
End Function
dim sliderwidth,sliderheight,slidespeed,leftrightslide(50),copyspeed,finalslide,i,MaxSlides
sliderwidth=800 '400
sliderheight=115
slidespeed=3 '3
finalslide=""
' number of slides
MaxSlides= 50
leftrightslide(1)="<img src='Images/Head Images/Ben-Ken Foran.jpg' border='1'></a>"
leftrightslide(2)="<img src='Images/Head Images/1097 H.jpg' border='1'></a>"
leftrightslide(3)="<img src='Images/Head Images/2360 H.jpg' border='1'></a>"
leftrightslide(4)="<img src='Images/Head Images/3717 H.jpg' border='1'></a>"
leftrightslide(5)="<img src='Images/Head Images/5909 H.jpg' border='1'></a>"
...
...
leftrightslide(33)="<img src='Images/Head Images/Woody H.jpg' border='1'></a>"
///////do NOT edit pass this line////////////////////////////////////
finalslide=""
for i=1 to 33 'leftrightslide.length
finalslide = finalslide + leftrightslide(i)+" "
next
response.write("<div class='rightpiclayer'> <marquee behavior='scroll' loop='infinite' scrollamount='3' scrolldelay= '1' width='600px'>"+finalslide+"</marquee></div>")
%>
Thanks in advance.
Peter.
