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

received anonymously:

"Friday 27, 2006. Brussels, Belgium.

In solidarity with the Gateway to Hell campaign, we decided to help out with economic damage and publicity shaming the people responsible for the suffering and death of thousands of monkeys every year.

The government of Mauritius has been approving for years monkey farms across the country to supply animal laboratories around the world, including the infamous Huntingdon Life Sciences labs, known for their incredible level of suffering and death. The Mauritius authorities see the monkeys as a threat to one of it's main economic fields, the sugar industry. For economic reasons they allow the trapping of wild monkeys and the breeding of them so they can be shipped to labs to suffer and die.

We will not let this happen anymore. That's why we will hit hard their biggest economic structures: tourism, sugar industry and the government directly until they make the ethical decision to shut down these concentration camps.

Today we went to the Mauritian embassy in Belgium in Brussels on Bollandistenstraat 68. Despite the night security around this embassy neighborhood and the camera's installed on the building, we got there in the middle of the night and spray-painted dozens of messages on walls and doors all around, like 'murderer,' 'the Mauritian government partners in crime,' 'mauritian government kills and tortures animals,' etc.

We then inserted super glue inside the locks of all the doors. To finish off we threw at this four story building 86 red blood paint bombs all over the walls, windows, roof and sidewalk. After we finished 86 paint bombs, the building was completely covered with red paint all over. It was a remarkable sight. No one passing by the embassy could miss this. It stood out so much, especially in this really posh and rich area.

Too bad for them, they are located on a very busy boulevard so thousands of people will see this. If you think this was bad, wait till you see what we have planned for our next attack if you don't shut down those monkey farms. Maybe next time, somewhere in the world one of your embassies will burn down, explode or one of the employees will be attacked... You never know!

Animal Rights Militia"