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

 

Middle School Faculty

 

 
Middle

 

Third Grade
Fourth Grade
Mrs. Petro
Mrs. Tosso
Mrs. Paille-Seal
Mrs. Payne
Mrs. T. Smith
   
Fifth Grade
Special Education
Ms. Pechon
Mrs. Hammett
Mrs. Schwaner
Mrs. Hall
Mrs. McCarthy
 
         
Mrs. Schoen
Mrs. Wiedeman
Mr. Bader
Talented Art
Gifted
Physical Ed.
Music
Chorus