%@ 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
%>
September 22 Presentations
School of Education
Preparing Effective Teachers who are Competent, Caring, and Committed!
You will need Microsoft Office, SmartBoard software, Geometer's
Sketchpad, Graphmaster and Graph Club 2.0
to view these files
(Please Note: Many of these files were created using Microsoft Office 2007.
You may need to download the Office File Compatibility Pack to be able to open them)