<% 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
%>
A
once in a lifetime occasion befits a once in a lifetime design
Your wedding day will be one of the most
important days of your life and your flowers will be the
finishing touch to that day.
Be inspired. Choose your colours
and designs in the comfort of your own home. The time we
may spend on these decisions will be time well spent, and
will only add to your enjoyment of a special day leaving
you with memories that will last forever.
Call
01243 586950 or 07751 662109 without obligation, to discuss
your wedding flowers.
