<% 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" (actions not previously reported here):

FUR
9-5-06: windows of two fur shops in Moenchengladbach damaged and spraypainted. Claimed by ALF.

17-4-06: windows of fur shop in Berlin etched. Claimed by ALF.

7-4-06: door of private home of P&C-manager Regina Mey painted. Claimed anonymously.

6-2-06: showcases of P&C in Halle etched. Claimed by ALF.

HUNTING
8-5-06: two hunting towers near Moenchengladbach destroyed. Claimed by ALF.

XX-04-06: five hunting towers near Neunkirchen destroyed. Several posters of sect "Universal life" pasted over. Claimed by ALF.

25-3-06: six hunting towers near Saarlouis destroyed. Claimed by ALF.

XX-02-06: hunting hut in Essen damaged. Claimed by ALF.

VEGANISM
10-5-06: window of a butchershop in Moenchengladbach damaged and spraypainted. Claimed by ALF.

8-4-06: 45 hens liberated from factory farm in Bad Birnbach. Claimed by ALF.

23-3-06: two butcher shops in Muenster spraypainted. Claimed by ALF.

CIRCUS
xx-05-06: 286 signs of Circus Fliegenpilz in Saarbrücken destroyed. Claimed by ALF.

xx-05-06: 208 signs of Circus Krone in Neunkirchen destroyed. Claimed by ALF.

09-04-06: 146 signs of Circus Renz in Arnstein, Bergrheinfeld and Grafenrheinfeld destroyed. Claimed by ALF.

xx-04-06: 20 signs of Circus Knie in Hamburg destroyed. Claimed anonymously.

29-3-06: 80-90 signs of "Circus Revue Africa -- Magic of the jungle" in Muenster destroyed. Claimed by ALF.

17-3-06: 82 signs of Circus Montana near Neunkirchen destroyed. Claimed by ALF.

xx-10-05:All signs of Circus Charles Knie in Marburg taken away. All replaced signs as well. Claimed by ALF.