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

reported anonymously:

"in the middle of April incidents took place in Switzerland at staff members of Roche and Arpida and the belongings of the Oeri family who owns 50% of shares in Roche. Roche and Arpida are Swiss-based companies who have been identified as customers of Huntingdon Life Sciences.

The incidents included spraypaints at and around the houses, including death threats. Litres of paint splashed around the compounds and cars have been vandalized with paintstripper. Tires of the cars have been slashed and windows etched. In a few occasions fake bombs have been left behind, and even a roadkill placed in a mailbox. Also gardens have been vandalized and locks glued.

Hadvary, Paul
Arpida, Project Manager for Iclaprim
Neumattenweg, 8
4105 Biel-Benken BL
Switzerland
061-721-68-58

Kompis, Ivan
Arpida founder
Goldenthalweg 16
4104 Oberwil BL
Switzerland
061 401 11 24

Gillessen, Dieter
Arpida founder, Senior VP & COO
Oberfeldstr. 12
4133 Pratteln
Switzerland
Phone 061 821 86 22
Fax 061 823 90 05
Mobile 079 205 94 08

Dr Peter Schneider (Arpida, Director of Chemistry)
Baumliackerstr. 8
4103 Bottmingen
Switzerland
Phone 061 421 87 81

Knowles, Jonathan
Roche, executive committee
Paradiesstr. 73
4102 Binningen
Switzerland
061 423 00 75

Oeri, Andreas
Roche , Director
Praxisgemeinschaft Clarahof
Facharzt f. Orthopadische Chirurgie
FMH Praxisgemeinschaft
Clarahofweg 19a
4058 Basel
Postfach 4005 Basel
Switzerland
Phone 061 681 81 21
Fax 061 691 23 04
e-mail. oeri@praxisclarahof.ch

Michael Doherty
Hoffman-La Roche
Hollenweg 59
4153 Reinech BL
Switzerland
061 711 28 45

Bruno Maier
Roche director
Rau Racherstrasse 44, CH 4125 Riehen, Switzerland
Tel 061 601 7388"