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

Communique received by activists in Germany:

"Yesterday we hit the logistics of P&C Austria severely.

During the night we smashed most of the windows and glass doors in the
ground floor of the warehouse in Langenzersdorf. Approximately 20 of
them. Then we threw a big amount of stinking butyric acid into an
open-plan office with 10 computers and into a storehall with clothes.
Computers and cloths also have been hit by butyric acid.

As long as P&C keeps selling fur we will find ways to raise the costs
even more.

We are having more staying power.

For the animals. ALF"

German communique:

"BekennerInnenschreiben
Datum: 25.05.2006

Wir erhielten folgendes BekennerInnenschreiben:

"GESTERN HABEN WIR DER LOGISTIK VON P&C ÖSTERREICH EINEN HERBEN SCHLAG VERSETZT:

WIR HABEN IN DER NACHT DIE MEISTEN FENSTER UND GLASTÜREN IM ERDGESCHOSS DES WARENLAGERS IN LANGENZERSDORF ZERSCHMETTERT: ETWA ZWANZIG STÜCK: DANN HABEN WIR EINE GRÖSSERE MENGE STINKENDE BUTTERSÄURE IN EIN GROSSRAUMBÜRO MIT ETWA ZEHN COMPUTERN UND IN DIE LAGERHALLE MIT KLEIDUNG GEWORFEN: COMPUTER UND KLEIDUNG TRAF AUCH BUTTERSÄURE:

SOLANGE P&C PELZ VERKAUFT WERDEN WIR WEGE FINDEN UM DIE KOSTEN IMMER MEHR IN DIE HÖHE ZU TREIBEN: WIR HABEN DEN LÄNGEREN ATMEN

FÜR DIE TIERE: ALF"