<% Const IMGS_DIR = "/CBphoto/images/slideshow400/" 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 %>

logo

 
 

 

Welcome to CBStockPhoto.Com. Your best source for photography from Crested Butte, Colorado and

the western United States. Traditional formats and panoramic images are offered for your stock

photography needs. If you're searching for images for your real estate guide, advertising campaign,

magazine article, web site, calendar, greeting card, promotional literature or any other stock

photography use, please check us out. Assignments are welcome too. Come into the site and see!

We add images almost every week so please check back often. If you need exclusive rights or have

a specific image requirement please give us a call at (970) 349-5038. We have thousands of images on file.

Enter!

 

Galleries & Shows / Workshops & Tours / Portraits & Weddings / Contact us / Fine Art / Subject list / Enter / Blog