% 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 %>
As reported by local activists:
At the end of July 2005, activists broke into the shed of a bird catcher in Bad Ischl, Upper Austria, liberated all singing birds there, which would have been more than 20, and smashed up all the cages.
In 2004, we had reported the same bird catcher to police for having too small cages and keeping too many birds. Nothing had happened to him. Now his birds are gone and the ban is in place that he is not allowed to catch anymore birds. Any further bird in his possession hence must have been illegally caught. We'll keep an eye on him.