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

Actions reported in the new issue of the German magazine "Tierbefreiung":

"Fur
07/02/06 - Amberg - home of fur farmer Seebauer spraypainted, 3 windows smashed - letterbox exploded - claimed by alf.
05/01/06 - Muenster - again 6 paint bombs against P&C - claimed by alf.
04/01/06 - Muenster - paint bombs against P&C - claimed by alf.
03/01/06 - Mainz - 2 windows smashed at fur&leather shop Bechthold - claimed anonymously.
29/12/05 - Mainz - 4 windows, 1 door smashed at P&C - claimed by alf.
25/12/06 - Berlin - window and doors etched at Escada store (fashion business partner of P&C) - claimed by alf.
21/12/05 - Krefeld - some windows etched at fashion shop Ansons (P&C group) - claimed by alf.
18/12/05 - Berlin - 2 windows etched at P&C - claimed anonymously.
17/12/05 - Mainz - window smashed at fur shop Buchholz, red colour thrown inside - claimed anonymously.
14/12/06 - Berlin - window etched at Basler store (fashion business partner of P&C) - claimed by alf.
29/11/05 - Berlin - 10 liters of fake blood in front of staff entrance of fashion chain P&C - claimed anonymously.
--/--/-- - Duisburg - P&C spraypainted - claimed anonymously.
--/--/-- Vienna/Austria - red paint against escada store (fashion business partner of P&C).

Circus
19/01/06 - Augsburg - about 90 advertisements of Zirkus Kaiser destroyed, claimed by alf.
12/01/06 - Augsburg - 50-80 advertisements of Zirkus Kaiser destroyed, claimed by alf.
19/11/05 - Lugano/Switzerland - 2 vehicles of circus knie spraypainted - claimed anoymously.
--/10/05 - Darmstadt - circus tent cut through, destroyed - newspaper report.

Hunting/Shooting
13/01/06 - Borchen - hunting tower chopped down - newspaper report.
31/12/05 - Darmstadt - shooting range of hunting club spraypainted, some equipment sabotaged - claimed by alf.
31/12/05 - Olbersdorf - 3 hunting towers sabotaged - newspaper report.
24/12/05 - Moenchengladbach - 4 hunting towers destroyed - claimed by alf.
16/12/05 - Marbach - 2 hunting towers destroyed - claimed by alf.
--/12/05 - Recklinghausen - 10 hunting towers destroyed - claimed anonymously.
--/12/05 - Merzig-Wadern - 6 hunting facilities destroyed - claimed by alf.
--/--/-- - Luebeck - some hunting towers destroyed at different occasions - newspaper report.
--/--/-- Floersheim - 3 hunting towers burned down - newspaper report.