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?