% 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

| internships Internships with PCC are offered on a short term basis. We are committed to offering Internship placements throughout the year to support our research, communications and campaigns activities. We strive to ensure that all interns work on a project that will benefit both them and PCC. “Interning at PCC was an educational and valuable experience that I would have never gotten in a classroom. I interned for seven weeks at the end of 2009. During my time with PCC I had the opportunity to observe several projects in various stages of implementations, sit in on client meetings and get a feel for client relations, and research for and work on a few projects with the PCC staff. The staff made all of their resources available to me and were most hospitable in offering their time and services to teaching me as much about their areas of expertise as I wished to learn. I will be able to take what I learned here and apply it to whatever job I find when I graduate from Boston University in the spring. I am truly grateful for the experience and will miss the staff and environment dearly.” Lynda Guerrero
|
