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

As reported by local activists in Germany:
Read the original German communiques:

Kiel/Germany: In the night of december 12th activists damaged 10 windows of Ansons, a mens' clothing store owned by the managing directors of Peek & Cloppenburg. The ALF, who claimed the action, threatened to do actions against P&C's shareholders also in the future.

In the night of December 14th the TBF (german for ALF) etched windows of a Basler store in Berlin/Germany. According to the communique Basler supplies P&C with jackets containing fur. TBF said in their communique that actions against other (fur-) suppliers of P&C will follow.

here are the original communiques in german

folgender Bericht ging bei der ogpi ein

wir haben in der nacht vom 7.12.05 die filiale von ansons kiel
angegriffen. 10 scheiben sind zerstoert. die alf wird die aktionen der
sabotage auf alle unterfirmen und shareholder von p&c west und p&c nord
ausweiten.
animal liberation front

folgende nachricht ging bei der ogpi ein.

In der Nacht vom 14.12. auf den 15.12.05 haben wir in Berlin-Steglitz die
Schaufensterscheibe eines BASLER-stores verätzt. Das Unternehmen BASLER
betreibt in Berlin und Hamburg jeweils einen sogenannten BASLER-store.
BASLER beliefert u.a. Peek&Cloppenburg mit Pelzwaren in Form von
Kapuzenbesatz an Jacken. Wir werden in den nächsten Wochen auch weiterhin
(Pelz)Lieferanten von Peek&Cloppenburg angreifen. Vorerst werden sich die
Aktionen gegen Firmen richten die Peek&Cloppenburg mit Pelzwaren beliefern,
Angriffe auf andere Geschäftspartner von Peek&Cloppenburg werden folgen.

-tbf-