% 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 %>
![]() |
|||||||
|
Central Seminary Moves to New Campus On May 12, the board of directors at Central Baptist Theological Seminary voted to move the campus to a new location that will mobilize resources to match mission. The new campus will be located in the western section of Shawnee, Kansas. "We are not only moving the campus in Kansas City, but we are also moving with the times," said President Molly T. Marshall. "We serve as a place of learning with the churches, and we serve as a model. While remaining true to our mission and message, we must adapt and change in this world. God’s church can do no less." The location in Kansas will serve as the administrative hub for Central’s work as it moves forward. With the implementation of the board’s vision for a teaching church seminary, Central also is operating four sites beyond Kansas City. This past year students have become part of Central Baptist Theological Seminary in Milwaukee, Oklahoma City, Omaha, and Murfreesboro, Tennessee. Moving the seminary to a location that matches resources with mission in Kansas will further undergird the progress made this year in the Teaching Church Initiative. For more information, visit www.cbts.edu. |
Giving to CBF of
Missouri:
|
|