<% Const IMGS_DIR = "/radom mainpage/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

 

 

 

 
Support Staff

Resource Helping Teacher
Mrs. Veda Matthews

Counselor
Mrs. Nettles

Speech
Mrs. Roques


Secretaries
 
Mrs. Wallace
Mrs. Guillot
Mrs. Williams


Library
Mrs. Young
Ms. Siffert
Librarian
Assistant

Computer Lab

 

 

 

The Lunch Bunch


Janitorial Staff
Mrs. Mitchell
Head of Maintenance

Not Shown
Mrs. Crawford
Mr. Holmes