% 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

| DESIGN & COPY PCC’s design department has its roots in the critically-acclaimed ‘Graphiconies’ design studio, an Italian-Irish award-winning collaboration. It’s passionate belief in creativity as the great problem-solver and its commitment to brave and pioneering design solutions are still as strong as ever. Public Communications Centre’s design and copy team is acclaimed for its visually striking images, intelligent typography and well crafted words. We specialise in branding and identities, publications, direct marketing packages, copywriting and editing, e-solutions and quality print management. Branding and Identity Materials Development Good writing is essential for effective communications and driving your message home to your targets. Our team of writers can assist and advise you on your newsletters, brochures, reports and publications.
|
