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

recent actions reported by activists in Sweden:

April 6th: The summer house in Bastad, owned by people in charge of one of the biggest fur store in Malmo, Havgards Pals, is sprayed down with logans. Windows on the house as well as on a Merecedes were also etched. - ALF

--------------------

April 4th: An attempt to break the windows on a fur store in Kungsholmen was made, but the windows were made of pansar glass, and an alarm broke out. - ALF

--------------------

April 3rd: Fur store gets windows etched and the lock glued in Gothenburg. - ALF

--------------------

"Sweden 03.04.06
The fur shop in Vdstertorp, a suburb to Stockholm is visited by animal lovers. 2 big windows and a glassdoor is smashed. This was the first action carried out by our cell, but triggered by the success more will follow.

Our best wishes goes out to everyone fighting for animal liberation!

This isn't some future utopia but an ongoing war to defend the animals.

Play your part, it's a lot easier than you might expect!

/DBF."

--------------------

"Sundbyberg, Sweden 3/4-06
Five windows, including the glassdoor at fur shop Nordan Pdls is smashed. The shop has been hit before and now we've decided to take up the fight to close it down forever.

Until the animal abuse goes away -The ALF is here to stay!

/Djurens Befrielsefront."

--------------------

"During the night to the 3rd of april a couple of skinned minks from a fur farm were left on the doorstep to a fur shop in Stockholm.
The shop has for long been a target for animal rights militants and since this fall the Stockholm based group Djurrdttsalliansen has run a campaign to shut it down.
With this action we want to show the bloody reality of the fur trade but also show our greatest respect and support for activists fighting within the law.
Together we'll smash the fur trade!

/Anonymous activists for Animal Liberation."