<%
Dim randomimages(10) 'Number of Images in the Array
Dim LowestNumber, HighestNumber
randomimages(0)=""
randomimages(1)="images/random/random1.jpg" 'List of Images to Display
randomimages(2)="images/random/random2.jpg"
randomimages(3)="images/random/random3.jpg"
randomimages(4)="images/random/random4.jpg"
randomimages(5)="images/random/random5.jpg"
randomimages(6)="images/random/random6.jpg"
randomimages(7)="images/random/random7.jpg"
randomimages(8)="images/random/random8.jpg"
randomimages(9)="images/random/random9.jpg"
randomimages(10)="images/random/random10.jpg"
RANDOMIZE
dim x
LowestNumber = 1
HighestNumber = UBound(randomimages)
x = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
%>
Home