% 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 %>
![]() ![]() ![]() ![]() |
![]() |
![]() ![]() |
|
"Twenty windows, at five different fur shops, in three cities were smashed at the night of 29th and 30th of December. All the shops also got slogans spraypainted and some had paint thrown in through their broken windows.
In a press release the norwegian ALF - Dyrenes FrigjøringsFront (DFF) - claims responsibility for waht they say is an coordinated sabotage against one of the important parts of the bloody fur trade. DFF also says the action is a taste of what the animal abusing fur trade can await in the coming year."
The norwegian press-release
from DFF: 20 ruter knust i antipels-sabotasje Tilsammen 20 vindusruter er knust i fem forskjellige pelsforretninger i Oslo, Drammen og Tønsberg i løpet av natt til idag og i går. De samordnede aksjonene mot lokale pelsforretniger er forsmaken på hva pelsindustrien kan vente seg fra Dyrenes Frigjøringsfront (DFF) i 2004. ?Pelsbransjen er motivert av økonomisk gevinst. Resultatet er dagens bestialske mishandling av dyr på pelsfarmer, og i naturen hvor pelsdyr fanges med tortur-liknende metoder. Det er nylig avslørt hvordan den internasjonale pelsbransjen også er med på å utrydde truede dyrearter for å tjene penger på å selge pelsen deres til samvittighetsløse rikfolk verden over, inkludert Norge. Dette er bakgrunnen for de siste dagers økonomiske sabotasjeaksjoner,? sier en DFF-aktivst. Pelsforretningene er et av de viktigste ledd i pelsindustrien, som gjør overgrepene mulige og lønnsomme. DFF vil fjerne lønnsomheten i å drive slakt av-og overgrep mot forsvarsløse dyr. En av DFFs taktikker er derfor økonomisk sabotasje mot virksomhetene som er ansvarlige for torturen. Inntill pelsbransjen er eliminert skal DFFs aksjoner fotsette. Året 2003 har vært et hett år for dyremishandlerne i norsk pelsindustri. Bransjens institusjoner er møtt med omfattende sabotasje- og frigjøringsakjsoner fra modige aksjonister. Aldri tidligere har det blitt utført så mange og store aksjoner mot norsk pelsindustri, som i året 2003. Vi har sett pelsfarmer legge ned, pelsbutikker stenges og pelsdyrfôrfabrikker avviklet etter direkte aksjoner fra DFF og andre grupper. Med dette som bevis på resultater oppfordrer vi alle dyrerettighetsaktivister til å gjøre 2004 til året hvor vi ser rekordmange av nåtidens slaverier stenge og kampen for frihet seire. Dyrenes frigjøring er i våre hender ? direkte aksjon redder liv! Informasjon/bakgrunn:
Retningslinjer for det
internasjonale Animal Liberation -Å frigjøre
dyr fra steder hvor de lider, laboratorier, pelsfarmer, oppdrettsanlegg etc.
Animal Liberation Frontline Inforservice - Norge " |
||||