%@ Language="VBScript" %>
<% Option Explicit %>
<% 'header must be included in file and file must be saved as filename.asp
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
Mr. Mihelic came to the Oklahoma Panhandle from Globe, Arizona, where he was a principal at Rice Primary School in San Carlos, Arizona. During his first year at OPSU, he not only became advisor for SOEA, he also took over as OPSU’s Field Placement Director, and instructor of education classes. Mr. Mihelic is pursuing his doctorate.