<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim LowestNumber, HighestNumber
%>
Logik Systems Copying Systems Limited, Photocopying systems covering Hampshire, Dorset and Wiltshire
<%
Dim randomimages(5) 'Number of Images in the Array
randomimages(0)=""
randomimages(1)="graphics/randomimages/randomimage-1.jpg" 'List of Images to Display
randomimages(2)="graphics/randomimages/randomimage-2.jpg"
randomimages(3)="graphics/randomimages/randomimage-3.jpg"
randomimages(4)="graphics/randomimages/randomimage-4.jpg"
randomimages(5)="graphics/randomimages/randomimage-5.jpg"
RANDOMIZE
dim x
LowestNumber = 1
HighestNumber = UBound(randomimages)
x = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
%>
