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

 
 

 

Stock Photography from Crested Butte and other Colorado locations, national parks and other western

states. Panorama landscapes are a specialty. The quaint, colorful and sometimes crazy events from

Crested Butte are highlighted in our images. Search and download images directly from our site.

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