% 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 %>
" one fur shop, one butcher shop, a shop that sells dead chickens and a pet shop had their locks glued in Madrid. During the night from the 31 of July to the first of August these businesses tied directly with animal explotation were atacked using glue, acid and sprays which we used to sign the action with the letters FLA
We want to dedicate this actions to the non human prisoners, to the humans that have recently gone out of prison and to the ones that are still inside.
ANIMAL LIBERATION NOW!