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

 

January

2008

 

 

Happy Birthday


Kerri Fredrick- 10

Rachael Vrettos- 11

Lizette Pechon- 17

Cindy Wallace- 21



 

 

 

 

Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday

1

Winter / Christmas Break

2

Winter / Christmas Break

3

School Resumes
4
5

6

7
8
9
10
11

12

 
13
14
15
16

17

6th Grade Field Trip

Cub Day-8th Graders to CHS

18

Science Fair
@ FWJH
19
20

21

Martin Luther King Holiday
22
23
24
25
26

27

 
28
29
30
31