% 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 %>
![]() |
|||||||
|
Hearing Voices As I write this, my brain is still echoing with all of the great ideas and input that came from our recent strategic planning session. I’m thankful to Connie McNeill for her outstanding leadership of this meeting, but I’m even more thankful to those who came to add their voices to the discussion and to those who supported us with expressions of prayer and good will. Blended together, those voices help define an exciting future for CBF of Missouri. This issue of Connect features stories about individuals and churches touching the future:
I wish CBF of Missouri could look far ahead – to see the bright future of these churches, these friends, and of the Fellowship itself. Instead, we’re listening. To the Spirit and to you. Thank you for speaking up.
|
Giving to CBF of
Missouri:
|
|