% 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 works together with groups and individuals around the world
to share the Good News of Jesus Christ. Being the presence of Christ to
everyone everywhere is at the heart of Fellowship mission partnerships. Partnering
groups and projects include:
Baptist
Medical Dental Fellowship
|
Giving to CBF of
Missouri:
|
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 |