<% 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 %>

 

Elementary Faculty

 


Elementary

 

Pre K Teachers
Pre K Aides
Mrs. Melton
Mrs. Spansel
Mrs. Williams
Mrs. Crawford
Mrs. Jenkins
Mrs. Lebreton
Mrs. Murphy
Kindergarten Teachers
       
 
Mrs. Fauntleroy
Mrs. Murphy
Mrs. Cowell
  
1st Grade Teachers
     
Mrs. Bruce
2nd Grade Teachers
     

 

 

 
 
Mrs. Frederick
Ms. Sanders
Mrs. J. Smith
 
Mrs. Corkern
Mrs. Revere
Mr. Bader
  
Special Ed.
Special Ed.
P. E.
  
Music