% 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 by activists in Spain (visit FreeDarren.org to learn more about Darren Thurston): "Dear friend, comrade and brother in fight Darren: Some years ago I started reading about the animal liberation movement and I looked into how to help in the struggle. Searching the internet I read an interview that inspired me quite a lot. The web site was www.nocompromise.org and the interview was with you. You talked in it about the cat liberation in Alberta University and about some arsons made against meat trucks, also in Canada. Your determination touched me, and made me realize the necesity of direct action for animal liberation. I have heard that you are in prison again, and to be honest that gives me and my comrades even more energy, this shows us that what you said in that interview about keep going even when you suffer repression were not just meaningless words, there were honest words from your heart. Now its our turn, your comrades outside, to show you that the fight continues, and thats what our group of friends have done. On saturday 22 we went to a farm in Bellpuig, a village of Lleida, that encaged dozens of thousands of partridges for being hunted. Most of the partridges were in the shelters were they had the food, so we opened the huge doors and hundreds of them flew away. I want to say to you thanks
personally and in the name of my comrades. If I A strong and sincere
hug from your comrades of the FLA in the spanish state. We love you and
we feel your arrest the same as the one of a brother, Spanish communique: Hace varios años empecé
a leer sobre el movimiento de liberación animal y Me he enterado de
que vuelves a estar en la cárcel y para ser sincero eso me da mas
energía a mi y a mis compañeros. Nos has demostrado que
lo que dijiste en aquella entrevista de seguir siempre adelante a pesar
de la Ahora nos toca nosotrxs, a tus compañeros de fuera demostrarte que la lucha sigue, y asi lo hemos hecho un grupo de amigos. El sábado 22 nos dirigimos a una granja que enjaulaba decenas de miles de perdices para la caza en Bellpuig, un pueblo de Lleida. Casi todas las perdices estaban en las naves de alimentación, así que abrimos las enormes puertas y cientos de ellas salieron volando. Te quiero dar las
gracias personalmente, y en nombre de mis compañerxs. Si no fuese
por esa entrevista que leí hace tiempo, quizás nunca hubiese
visto las perdices volar hacia la libertad. Para una persona que cree
en la Un abrazo muy fuerte y sincero de tus compañeros del FLA del estado español. Te queremos y sentimos tu arresto como el de un hermanx, porque para nosotros eres nuestro hermanx." |
||||