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

reported by Animal Liberation Victoria:
Click here for photos.

"Happy Hens Rescue Number 22
Mothers Day - For All Mother Hens Everywhere
May 15, 2006
13 hens rescued

Happy Hens Battery Egg Factory is 100 Kilometres from Melbourne. There are currently nine sheds holding battery hens (two sheds each hold 80,000 birds in cages eight tiers high and seven sheds hold 22,000 birds each in cages four tiers high (the property is in the process of converting all the old sheds to hold 80,000 hens each).

Eight open rescue team members saved the lives of 13 hens on May 15, 2006. We successfully passed through the eleven foot electrified fence and two guard dogs to enter Shed 3 where the same hens we last viewed on our previous rescue (August 11, 2005) were still caged. The activists gained access to the rear of the shed around 3:15 am, changed into biosecure gear and then disinfected our footwear with 100% hospital grade disinfectant before putting blue plastic booties over our shoes prior to approaching the cages holding the hens. The shed was dark when we entered but the lights automatically came on around 4am.

The feather condition of the birds had greatly deteriorated over the nine month period and the volume of noise in the shed became loud and frenzied when the lights came on and the birds started to wake and feed. The noise levels were much worse than in August when the birds had only been in the cages a few weeks. Many of the hens were unable to stand at full height in the cages, their heads rubbing against the conveyor belt that removes the excrement from the hens in the cages above them. There were generally seven birds per cage and we had time to only glance briefly (in the dim lighting) at some 1,000 birds out of 80,000. It was impossible to do a full inspection of so many birds caged in the eight tiers of cages reaching up two stories above us. We concentrated on one row in one aisle and found several dead birds left rotting in cages and removed them as there were live birds and eggs sitting on the mouldy and disembowelled bodies.

Another dead hen was green with mould and her head was lodged under the electrified wire that 'trains' the hens not to retrieve their eggs when they become broody. Two very bloated and smelly dead bodies were found laying on the floor. A time roster on the wall specified two times for 'dead runs' - each Monday and Thursday, even though the Code of Practice stipulates dead bodies must be removed promptly. The time roster was two pages long and listed tasks to be done, not one single word even mentioned checking the welfare of the birds, although the law requires each bird be inspected daily.

A total of 306 battery hens have been rescued from this cruel torture factory in numerous undercover rescues that have consistently documented the bad conditions the hens continually suffer. Legal authorities continue to turn a blind eye.

- For all hens commercially enslaved and killed by humans... and with thanks to any activists who have helped save the lives of tortured, imprisoned and abused animals."