% 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

| who are we Established in 1995, our team has worked on over 700 projects for more than 100 organisations. Each year we draft communications and fundraising plans. We develop and implement advocacy, fundraising and public awareness campaigns. We re-brand organisations, develop new identities for campaigns and appeals and design numerous projects for print and the web. Public Communications Centre uses its communications talents and expertise to help organisations win key battles. We help them win new funding. New support for enlightened policies. We help them win new donors, members and volunteers. We also help groups to educate and inform their target audiences. Whatever the project, small or large, we always dedicate ourselves to producing the best quality work and to delivering it with maximum impact.
|

