% 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 %>
|
|
Would you like some extra income and help your child's school at the same time? |
|
|
St. Tammany Parish School System is now accepting substitute applications. The Office of Professional Development, 227 N. Jefferson in Covington, oversees registration, data entry and partnership work with the schools for all substitutes in our parish. Registration is on Tuesday and Thursday, 8:30 A.M. -11 A.M. You must provide driver's license, social security card, and proof of highest education at the time of registration. Call 985-898-6477 for more information. All substitute teachers and paraprofessionals must attend a full day training. The cost of the training is $25; however, substitutes are reimbursed after the tenth day substituting in our schools during the school year. The purpose of this workshop is to enhance the ability of the substitute teacher to be much more than just a caretaker in the classroom. Implementation of a training program is designed to decrease incidences that cause problems and increase student learning.
Revised
9-19-2007
|
|
|
|