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

two actions reported on Acción Vegana:

1.
"The night of 29 of April two UPS mail boxes located in 'Machupichu' and
'Juan Ramon de la Cruz' were glued and painted, we tried to break the
windows of one of them but they were alarmed and too thick.
We also glued and painted a furshop in Quintana district. There will be no
rest for animal abusers. Solidarity with our prisoners comrades!"

Spanish version:
"La noche del 29 de Abril fueron selladas y pintadas dos sedes de Mail-Boxes (asociadas a UPS) situadas en c/Machupichu y Juan Ramon de la Cruz, en una de ellas se intentaron romper las lunas pero estaban blindadas y con alarma sonora.

También se selló y pintó una peletería en la zona de Quintana. No hay
descanso para lxs explotadores, Solidaridad con lxs compañerxs presxs!"

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

2.
"We glued the locks and spraypainted the UPS Mail Box in Cornella (Barcelona) in December 2005.

In April this year we threw red paint bombs at the UPS offices in Sant Boi and we did some spraypaint. The spraypaint said: MURDERERS! YOU ARE
RESPONSIBLE OF ANIMAL SLAVERY AND ABUSE, IF YOU ARE WITH HLS YOU ARE AGAINST US!

We will keep this up until there is no more animal inside a cage and no human inside a prison.

For anarchy, for animal liberation, for freedom!"

Spanish version:
"Reivindicar la sellada y las pintadas de denuncia del MailBOX de UPS en
Cornellá.. hechas alrededor de diciembre del 2005.

En abril de este año se bombardeó a base de bombillas llenas de pintura roja la sucursal de UPS de Sant Boi, y se hicieron pintadas. Las pintadas decían: ASESINOS! SOIS COMPLICES DEL MALTRATO Y LA ESCLAVITUD ANIMAL, SI ESTÁIS CON HLS, ESTÁIS CONTRA NOSOTROS!

Continuaremos así hasta que no quede ningún animal en jaula ni ninguna
persona en celda.

Por la anarquía, por la liberación animal, por la libertad!"