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

CBF of Missouri hosts Fellowship Groups around the state for individuals interested or involved in CBF life and activities. Want to meet other Fellowship Christians in your area for times of fellowship, worship and renewal? Contact the CBF of Missouri office for more information about a Fellowship group in your area.

  

 

Giving to CBF of Missouri:
Information on personal giving options
Cooperative giving options for churches

 

 

Cooperative Baptist Fellowship of Missouri
5 East Kansas Street     Liberty, Missouri 64068
Phone: 816.415.0009     Fax: 816.736.0122     Email:info@cbfmo.org

Copyright 2005-2008 CBF of Missouri