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

Received anonymously by activists in Germany:
Read the original German communique:

NOTE: there is a three-year campaign in Austria and Germany against the department store P&C. it is the biggest campaign in Germany . Harro Uwe Cloppenburg is the leading director. Visit the campaign website here.

"In the night from the 6th to the 7th october we paid a vist to
Harro-Uwe Cloppenburg (Freytagstr. 32, Düsseldorf) and Andreas Heller (Seidenweg 27, Düsseldorf).

Harro-Uwe: Red paint on the house, garage door and cars, butryic acid in the house, paint stripper on the cars (D-AW 40 30, D-AW 41 31), locks glued. Andreas: butryic acid in the house Harro-Uwe and Andreas are leading managers of Peek & Cloppenburg. Peek & Cloppenburg (P&C) sell furs.

Millions of animals get tortured and killed for fur every year. Harro-Uwe and Andreas are directly responsible for the decision of Peek & Cloppenburg to sell furs. P&C wrote in theirpress release that they will continue to sell fur.
T.B.F."

"In der Nacht vom 6. auf den 7. Oktober wurden Harro-Uwe Cloppenburg (Freytagstr. 32, Düsseldorf) und Andreas Heller (Seidenweg 27, Düsseldorf) besucht.

Harro-Uwe: Rote Farbe auf Autos und Haus und Garagentor, Buttersäure in das Haus, Abbeizer über Autos (D-AW 40 30, D-AW 41 31), Schlösser verklebt. Andreas: Buttersäure in das Haus Harro-Uwe und Andreas sind Führungspersonen von Peek und Cloppenburg. Peek und Cloppenburg verkaufen Pelze. Millionen von Tiere werden jedes Jahr gequält und getötet für Pelz. Harro-Uwe und Andreas sind direkt verantwortlich für die Entscheidung von Peek und Cloppenburg Pelze zu verkaufen. Sie sagten in einer Presserklärung, sie werden es weiterhin machen.
T.B.F. "