<% 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 activists in Germany:

Lüneburg/Germany: On June 16th ALF activists paid a visit to Jörg Cloppenburg. He is a shareholder in Peek&Cloppenburg and a relative of the managing directors.
Two cars got ALF treatment: tires slashed, locks glued, windows etched and paint stripper was used as well.
Jörg is a hunter, which was also a motive for the activists to attack him, says the communique.
"We know where we can get you. All P&C-shareholders are targets. No compromise," ALF writes in the communique.

German communique:
"was:
direct action gegen jörg cloppenburg. die beiden autos von jörg cloppenburg wurden attackiert. nummernschilder (xxx) und (xxx). in der nacht auf 16.juni wurde die aktion gemacht. adresse: (xxx) , lüneburg.

(xxx):
PKW
alle vier reifen zerstochen.
alle fensterscheiben verätzt.
alle schlösser verklebt.
lackentferner über den lack.
(xxx):
Jeep
drei reifen zerstochen.
alle fensterscheiben verätzt. A.L.F. in scheibe geätzt.
alle schlösser verklebt.
lackentferner über den lack.

warum:
peek und cloppenburg verkauft pelz. jörg cloppenburg ist gesellschafter der peek und cloppenburg nord KG und somit am gewinn beteiligt. jörg cloppenburg verdient auch am pelzverkauf von peek und cloppenburg. somit
ist er unser ziel.
jörg cloppenburg ist auch jäger. sein jeep war voller jagdschutz plaketten. dies ist ein weiterer grund für uns.

wir hören auf wenn peek und cloppenburg schluss macht mit dem verkauf von pelz.

wir wissen wo wir euch treffen können. alle gesellschafter von puc sind dran. keine kompromisse.

animal liberation front"