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

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

 
decorative image

sister organisations

Public Media Centre
Since 1995 PCC has had a close partnership with Public Media Centre in San Francisco. Both organisations share similar goals and vision and provide communications and campaigning support to progressive NGOs.

Public Communications Institute
In 2003 PCC established a sister organisation Public Communications Institute with the aim of developing research and training projects.