<% 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 by AR Magazine "Tierbefreiung", in Germany:

----------------------

- letter received 15.10.:

claimed by ALF/ELF/HLF Baden-Wuerttemberg

several toilets of Mc Donalds and Burger King filled with cement in Stuttgart, walls painted with slogans.

several locks of butcher shops glued and windows painted with slogans in Stuttgart

several circus announcement plates removed, destroyed or painted in Boeblingen, arson attack was planned but canceled, because of security reasons

-------------------------

- 30.9., 15.10.

claimed by open rescue group maqi

16 ducks liberated

----------------------------

- 4.9.

claimed by ALF

more than 100 circus announcement plates of circus "Monte Carlo", "Spanische Hofreitschule" and an exotic-animal-show cut and disabled.

--------------------------

- September

claimed by ALF

40 circus announcement plates of circus "Kelly" removed and destroyed in Rodewisch.

--------------------------

- 30.8.

claimed by ALF

34 rabbits liberated in Neuenburg

-----------------------------

- 26.8.

claimed by ALF

locks of 3 butchers and one fish-shop glued in Auerbach

-----------------------

- received 23.8.

claimed anonymously

250 circus announcement plates cut or torn off in Essen the weeks before

------------------------

- 18.8.

many circus announcement plates of Circuses "Kunterbunt" and "Holiday" disabled in Berlin.

------------------------

- 14.-16.8.

newspaper-report

4 hunting towers destroyed in Bad Neuenahr

-----------------------

- 14.8.

claimed anonymously

window of butcher-shop in Berlin smashed

many locks glued of animal abusing shops in Berlin during beginning august

-----------------------

- 8.9.

claimed by ALF

10 minks liberated from fur farm and released in a big nature reserve

-------------------------

- 27.7.

claimed anonymously

turkey-breeder visited, painted, locks glued near Steinfurt

--------------------------

- July

newspaper- report

3 hunting towers destroyed in Gussenstadt

--------------------------

- summer 2004

claimed by open rescue group befreite tiere

380 chicken and 42 geese liberated in 22 actions