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

Tonight the fur shop Olssons Päls in Gothenburg had slogans sprayed, locks glued and paint bombs throwed over it. After that we went home to the owner of the fur shop that lives in Mölnlycke. On the garage port we sprayed "welcome to the job" to give them a hint of what to expect. - DBF

On the night to August 4th, Christin fur shop in Gothernburg got several
windows smashed and paint bombs throwed into the shop. - DBF

Slogans were sprayed at walls and the entrance at Nicolaus fur shop in
Gothenburg. - DBF

A furrier in Halmstad got a home visit. The car was destroyed with acid as
well as the windows, the locks to the house was glued and to finish it off
slogans were sprayed.