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

 

 

Wedding Packages

Latest News

Whatever it is you require, we'll sit down with you and together design and plan your perfect wedding photography... exactly as you'd want it. Choose from an extensive range of coverage and album options - one bound to be "just right", designed for you.

 

search for...


26 Ramsay Street
Toowoomba QLD 4350

(07) 4613 1388

 
| Home | Site Disclaimer | Privacy Statement |
 
 
Copyright © 2007 Studio Ni Photography & Imgaing. All Rights Reserved