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

Flowers a la Carte Press

Flowers a la Carte Press

Visit our gallery to see some examples of our work

 
 

Wedding Flowers
Winter 2006 - Beautiful Bouquets

Heart-shaped bouquet

Heart-shaped bouquet of limoniums, eustomas, amaranthus and glax leaves, in a gypsophila frame.

Bouquet of dendrobium orchids

Bouquet of dendrobium orchids, amaranthus and hydrangeas, with on organza wrap and tied with beaded wire.
Trailing bouquet of anthuriums

Trailing bouquet of anthuriums, James Storey and cymbidium orchids, amaranthus, and skeleton and galax leaves.
     

Contact us via email or call 01243 586950 or 07751 662109 for more information.

 
 
This site and it's contents are © Flowers á la Carte 2006
Website Designed by Kelly Burchell