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

30 April - Landskrona; The auditor to a fur shop in Malmö gets his brand new
Jeep paint stripped. Note was left on the window urging him to end his co-operation with the fur industry. - DBF

27 April - Stockholm; A fur shop in Stockholm town got its windows smashed. - AVOID/DBF

26 April - Jönköping; Circus propaganda was cleared away and destroyed all over town.

25 April - Ulricehamn; Racist stickers and circus posters was torn down.

16 April - Stockholm; 99 mice, 14 hamsters and 13 rats is liberated from the University of Stockholm.

11 April - Gothenburg; 2 windows and a glass door on a fur shop is etched. - DBF

10 April - Uppsala; The petrol company Shell get targeted for their ties to HLS. A petrol station gets locks glues, tires slashed and slogans were painted on the station walls. - DBF

9 April - Uppsala; Slogans painted on the local fur shop and a fast food restaurant.

6 April - Sweden; 2 hunting traps was destroyed - AVOID

6 April - Åsa; 47 hens liberated from a battery farm. - DBF

5 April - Båstad; Activist paint slogans all over the walls on a posh summer house that belongs to a board member of a fur shop in Malmö. The Mercedes that was standing outside got its windows destroyed with glass etching fluid. - DBF

3 April - Stockholm; 2 windows smashed on the fur shop in Västertorp, Stockholm. - DBF

3 April - Stockholm; Activists fail to break the glass on a fur shop in Stockholm, but the alarm goes off and will surely cost the shop owner a few pounds. - DBF

3 April - Gothenburg; Fur shop gets its windows etched and locks glued. - DBF

3 April - Stockholm; Skinned mink corpses left outside a fur shop in Stockholm.

3 April - Sollentuna; All five windows and the glass door gets smashed on a fur shop in the Stockholm suburb. - DBF

April - Borås; Circus posters get torn down."