<% 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 on Accion Vegana:

"During the night of 14th of July 2006 we went to the central offices of UniPharma, in Barcelona (Miño steet), a company client of the famous animal testing lab H.L.S., we just made some spray paints with the three letters of Animal Rights Militia and the letters HLS crossed.

We now know were to find you

Sami Legweil Alargado whose home adress is Steet Reina Amalia nº30 3º 4ª, Barcelona was visited by us the 15th of July because he is director of an
important area in Unipharma, who ask HLS to kill hundreds of animals every day.

Each of the neighbors had a leaflet explaining what this mercenary does in his job and in what type of business his company is doing. He had a special letter signed as Animal Rights Militia. We warned him that if his company doesnt cut its ties with HLS, he will pay the consecuences. In our next visit we will not leave a letter in the door of his home... BOOOOM!

We have also warned by emails to his business partners. They will probably also receive a visit from the ARM.

Spanish communique:
"La noche del 14 de julio del 2006 nos acercamos a las oficinas centrales de UniPharma en Barcelona [c/miño], empresa cliente del famoso laboratorio de experimentación animal H.L.S., simplemente realizamos unas pintadas; las siglas de Animals Rights Militia y las siglas H.L.S. tachadas.

Ya sabemos donde estais
---------------------------------------
Sami Legweil Alargado residente en Reina Amalia nº 30 3º 4ª, Barcelona,
recibió nuestra visita el 15 de Julio, por ser el Responsable de planta y
director de control de calidad de la empresa Unipharma, quienes encargan
asesinar a diario cientos de animales en HLS.

A cada uno de sus vecinos se le dejó un panfleto explicando a que se dedica este mercenario y en que tipo de asuntos está metida su empresa. A el le dejamos una nota especial, firmada como Animal Rights Militia, avisándole de que si su empresa no deja HLS, él pagará las consecuencias. La próxima vez que le vayamos a ver no dejaremos en la puerta de su casa una nota... BOOOOM!

Además hemos avisado por email a distintos compañeros suyos de trabajo.
Posiblemente ellos también recivan una visita del ARM"