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

anonymous communique:

"In the night of Sunday/Monday July 3, company BIOSEB was the target of FLA. This company sells instruments of torture for laboratories. "BIOSEB KILLS ANIMALS", "MURDERERS" and "STOP" were painted on the walls, the pavement and the doors of this cruel company. We will not hesitate to visit again with BIOSEB:
rue de stalingrad
92370 CHAVILLE

From now on every business conducting experiments on animals could be targets.

Each second 30 animals are killed in laboratories around the world. You use cruelty-free products? You speak to your friends about it? You distribute leaflets? That is good, but to be really effective we must act DIRECTLY. It is by attacking their wallets that they are really affected. It is more than urgent TO ACT directly.

It is only the beginning... F.L.A."

French communique:
"LA VIVISECTION VISEE PAR L'ALF

Dans la nuit du dimanche au lundi 3 juillet, la société BIOSEB a été la cible de Front pour la Libération des Animaux (FLA). Cette société vend des instruments de torture pour des laboratoires. "BIOSEB TUE DES ANIMAUX", "MEURTRIERS" ou encore "STOP" ont été tagués sur les murs, le trottoir et les portes de cette société cruelle.
N'hésitez pas à rendre visite à BIOSEB :
rue de stalingrad
92370 CHAVILLE

Désormais toute entreprise pratiquant des expériences sur les animaux (ou participant de près ou de loin) pourra être visée.

Chaque seconde 30 animaux sont ASSASSINES dans les labos dans le monde, que faites vous face à ce génocide???
Vous utilisez des produits non testés?
Vous en parlez à vos amis?
Vous distribuez des tracts?
C'est bien, mais pour être réellement efficace nous devons agir DIRECTEMENT. C'est en s'attaquant à leur portefeuille qu'on les touche réellement.

Il est plus qu'urgent de REAGIR et d'AGIR directement.

Ce n'est que le début...

F.L.A."