<% Const IMGS_DIR = "/|/Documents and Settings/Owner/Desktop/BITE BACK/directaction.info/new/random/" 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 %> <% Const IMGS_DIR = "/|/Documents and Settings/Owner/Desktop/BITE BACK/directaction.info/new/random/" 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 %> <% Const IMGS_DIR = "/new/random/" 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 %> <% Const IMGS_DIR = "ramdom/" 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 %>

As reported by local media:

Activists blamed for strike Sep 4 2005

Lucy Ballinger, Wales on Sunday

A WELSH company has stepped up security after animal rights extremists poured paint stripper on the boss' car at his home in the dead of night.

The attack happened after the phone number and address of Caernarfon-based Euro DP were posted on an extremist website for having links with Huntingdon Life Sciences, an English pharmaceutical firm which has been a long-standing target for campaigners.

Euro DP, which employs 400 people in Gwynedd, supplies products which are used to detect disease to the company as well as the NHS and pathology labs.

The managing director of the company, who asked to remain anonymous for fear of retribution, said: "They poured paint stripper over my car at 2am, by the time I saw it at 7am it had been stripped down to bare metal in many places. They also sprayed graffiti on the garage door and slashed my tyres.

"But the financial aspect of that is neither here nor there, my concern was for the safety of my wife and my teenage children.

"Whilst there was no bodily damage to any member of my family, it was the attempt to cause psychological damage.

"These people are campaigning because they are trying to stop cruelty to animals, but they perform cruelty through their activities. It is perverse to me."

Activists want 50 named companies to sever their links with Huntingdon Life Sciences, which admits testing on animals.

"We have had two demonstrations outside the company," the director said.

"We have had foul and abusive phone calls to the receptionists and get the occasional letter. Some of the letters are quite rational but others are anonymous and threatening.

"I recognise the right of the campaign to peaceful protest, but when some choose to go beyond that I have difficulty with the whole campaign and it devalues it.

"We have had to lock down the facility much tighter than we thought we would ever have to in reaction and response to this campaign.

"As long as it is running, we are a target so you have got to be in a constant state of readiness."

Superintendent Mark Jones, deputy divisional commander of the west division in Caernarfon, said: "We have a response plan in place which aims to ensure that the rule of law and the Queen's peace are maintained."