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

22 South Great
Georges Street
Dublin 2, Ireland
t (353 1) 679 4173
f (353 1) 679 5409
info@pcc.ie

| contact details New Work John Sutton email John Accounts Geraldine O'Dowd email Geraldine How to find us Our office is situated on the left hand side of South Great Georges Street heading away from Dame Street. Just past George's Street Arcade. We are directly above Simon's Coffee Shop and opposite sixty6 brasserie. Parking
|
