% Const IMGS_DIR = "/images/random/" 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 %>
![]() |
|||||||
|
June 7-14 •
Matthew 25 Project June
16-21 • CBFMO
Week in Memphis June
19-20 • CBF
General Assembly •
Memphis
Dr. Mike Graves will serve as the retreat leader for The Fully Alive Preacher. The retreat begins with lunch on Monday. Optional golf on Tuesday afternoon coordinated by golf pro Pete Hill.
October
12-22 • Change for Children
•
Kenya
April
24-25 2009 • CBF
of Missouri General Assembly •
St.
Louis
|
|
Giving to CBF of
Missouri:
|
Cooperative
Baptist Fellowship of Missouri |