% 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 %>
"5 dogs released in Buitrago de Lozoya, Madrid
The night from 1 to 2 of August a mother and her 4 puppies were released that were locked up next to 4 other dogs in terrible conditions next to a deposit of dogs destined for big game hunting.
The dogs were divided into 3 cages, in one of which were the released dogs. The cages were oxidized, the ground full of excrement from previous days and the dogs infected with parasites. We broke the door to be able to remove them and painted, "Animal Liberation", "F.L.A".
We only could take 5 dogs with us due to the difficulty in the transport although we do not forget those we left behind. Now the dogs are wormed and in their respective homes. We are conscious that they are not totally free but nobody, neither human nor animal, can be in the present system.
These actions will not be isolated and we warn all exploiters that they are in our sight...
Until the last cage is destroyed. F.L.A"
"Liberados 5 perros en Buitrago de Lozoya, Madrid
La noche del 1 al
2 de Agosto fueron liberados una madre y sus 4 cachorros que se encontraban
encerrados junto a otros 4 perros mas en pesimas condiciones proximos
a un criadero de perros destinado a la caza mayor.