% 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

| CAMPAIGNS + advertising PCC’s staff of media professionals have extensive experience in professional advertising, print and broadcast journalism, direct mail marketing, radio and television production and filmmaking. We can assist you in drafting press releases and articles and can arrange press conferences and launches. At PCC we specialise in:
These campaigns require strategic vision, mature experience, trade knowledge, leverage with suppliers and media organisations, a variety of expert skills and the organisational capacity to deliver success on time and on budget. We have a decade of this experience.
|
