% 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 %>
by activists in the UK:
Our team was driving past a field in Wiltshire, when we spotted a rather suspicious building, which we guessed from the ventilation and the smell, housed animals.
A quick look informed us that the farmer was close at hand, so we jumped out of the car, opened the doors of the building, and grabbed 5 of the occupants - baby pheasants.
These birds were being bred for the wholesale slaughter that is game shooting.
The birds were too young to be released into the wild, so they have been given temporary homes where they can learn their natural behaviors until they are ready for a life of total freedom.
These lucky birds
will be released into a safe area of countryside - miles from any gun-toting
thugs, and you can be rest assured we will be back for more.