<% Const IMGS_DIR = "/Slideshow/" 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 %> Welcome To VBC's Multimedia Resources!
Multimedia Resources
There are several free multimedia resources available from Victory Baptist through this website. We hope you will take advantage of these resources and share them with those who need to hear the life changing word from God.
Weekly worship DVD's are now
available in the front office.
or
Click here to order a DVD or CD
of our weekly worship service. 
ITunes Audio and Video Podcasts
 more info....
 
Streaming Audio
 
Streaming Video
 
Video Testimony
If you would like to share your testimony by video, please contact the VBC A/V ministry today.