<%@ Language="VBScript" %>
<% Option Explicit %>
<% 'header must be included in file and file must be saved as filename.asp
Randomize
dim num, picNum, ArrPics
' array hold picture file names any number of pictures can be added - quotes around the file names and - separate pictures with a comma
' if picture was a gif the name would filename.gif if a jpg the name would filename.jpg
ArrPics = Array("templates/images/image1.jpg","/templates/images/image2.jpg","/templates/images/image3.jpg","/templatess/images/image4.jpg","/templates/images/image5.jpg","/templates/images/image6.jpg","/templates/images/image7.jpg","/templates/images/image8.jpg","/templates/images/image9.jpg")
'picNum is one less then the number of pictures in tha array'
picNum = 8
num = Round(Rnd*picNum)
'all other code besides line commented below can be changed
%>
SOEA
