Scrolling random slide show

[Supremus]

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


<%
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)+"&nbsp;"
next
response.write("<div class='rightpiclayer'> <marquee behavior='scroll' loop='infinite' scrollamount='3' scrolldelay= '1' width='600px'>"+finalslide+"</marquee></div>")
%>


Thanks in advance.

Peter.

[ssh]

The code doesn't show how randomNumber factored in slide show. Where is it?