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

Received by activists in the UK:

"May 28:
To mark the Real World Day for Lab Animals, the A(LF) Team took action in Hampshire. Our target was Bridget’s Farm Rabbit Research Station (Central Science Laboratory), owned by DEFRA. This huddle of buildings lies mysteriously amongst acres of obscure fencing, traps and runs.

Entry was gained to the enclosure via several holes cut in the electrified perimeter fencing. We then forced the office doors with a crow bar, leaving it hanging off its hinges. On the walls of the building we found maps detailing the extent of the testing area, as well as blueprints of the main Bridget’s Experimental Farm complex. Over 20 years of research was found, on paper, VHS and slides. All of this was removed from the site, copies were made and the orgionals destroyed. The paperwork makes for shocking reading.

Bridget’s Farm have been, and still are, engaged in developing the “most effective” means for “controlling” rabbits. Past studies have involved cyanide, phosphorous, magnezium tablets, gassing, various trapping techniques (many of which are now illegal) and much more. These studies have been carried out on both domestic and wild-caught rabbits. Customers include golf courses, Heinz and Mars. We have evidence that this site has also caught wild rabbits for use in other laboratories. Due to the intense labour involved in making copies of the thousands of pages of documents, as well as copying the video evidence, it has not yet been possible to scrutinise everything that has been taken. A full press-release will follow, documenting everything that has been going on at this field station.

As well as blueprints to the site, and all of their research, we also removed addresses, phone numbers, and their contacts at other animal abuse facilities - many of which we already had our eyes on. Following the ransacking of the office, we attacked the runs where rabbits are often kept. They were all empty this time, but we made sure they could never be used again. Holes were cut in them, before they were physically ripped to shreds."