%@ 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
Student Oklahoma Education Association (SOEA) is a pre-professional organization of undergraduate and graduate students currently preparing for careers in education.
The SOEA Mission Statement is: “As future professional educators we seek to serve the community and to provide professional development and quality education experiences while fostering professionalism among our organization.”