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

Communique received by activists in Italy:

Click here for photos.

April - Cantalupo (Alessandria) - Italy.

"In the night we entered the organic farm of Borgo Adorno, in Cantalupo
(AL). The action has brought freedom to 12 young goats. Unfortunately we
didn't manage to save all their brothers from a sad death for Easter
dinners.
This farm, owned by Milano University, is a leading experiment on
'organic' farming, where students of Agriculture Dept. are trained to
become future killers.
Since millennia thousands of lives are sacrificed in the name of religion.
Living beings considered inferior, simple commodities, what matters is how
they create profit.
What we have seen is that organic farming is not so different from the
other ones: the health of the animals is bad, adult females are forced
under artificial lights night and day in order to stimulate their heat,
small cages for a short and unpleasant life. The puppies are immediately
separated from their mothers, while the males are killed to end up on the
tables of devoted people.
A mass murder. A shame.

Fronte Liberazione Animale"

Italian communique:

"Nella notte ci siamo introdotti nelli'allevamento biologico di Borgo Adorno, localita' Cantalupo (Al).
Li'azione ha portato alla liberazione di 12 capretti.
Purtroppo non siamo riusciti a sottrarre alla triste sorte dei banchetti pasquali gli altri fratellini.

L'azienda, proprieta' dell'Universita' degli Studi di Milano, e' un esperimento "pilota" sulli'allevamento biologico dove si allenano studenti della facolta' di agraria per diventare i futuri aguzzini.

Da millenni vengono sacrificati in nome della religione migliaia di vite. Esseri considerati inferiori, come semplice merce, l'importante e' che producano profitto.
Quello che abbiamo potuto verificare e' che l'allevamento "biologico" non e' tanto diverso dagli altri: la salute dei condannati era molto precaria, le femmine adulte sottoposte a luce artificiale di notte e di giorno in modo da stimolare il calore; spazi angusti per una precaria e corta sopravvivenza. I cuccioli appena nati vengono separati immediatamente dalla madre e allevati artificialmente, a pochi giorni dalla nascita di i capretti maschi vengono sgozzati per finire sulle tavole dei misericordiosi.
Una strage.
Una vergogna.

Fronte Liberazione Animale"