% 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 %>
![]() |
|||||||
|
Next Kenya Trip Slated for October 2008 As part of CBF of Missouri’s ongoing partnership in Kenya, a return trip to Africa is being planned for October 2008. Specific dates will be determined in coordination with CBF field personnel Sam and Melody Harrell and their Africa Exchange Change for Children program. Cost is projected to be $3000 per person, which includes air, lodging, meals, visa, and emergency medical insurance. The ideal project trip will have 10-12 skilled participants from an array of churches partnering with the CBF of Missouri Ngerenya ICDC Project.
Kutana This kind of cross-cultural education, mission immersion and other exchanges results in:
For more information, contact Jeff Langford at 816.415.0009 or jeff@cbfmo.org.
|
Giving to CBF of
Missouri:
|
|