% 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 %>
Received anonymously by activists in the USA:
"Recently, members of the Animal Liberation Front paid a visit to Bachem/Peninsula Laboratories (305 Old Country Road, San Carlos, CA 94070), a well-known associate of Huntingdon Life Sciences. Left in our wake were spraypainted messages, busted windows, and broken glass to deliver our message that supporting the murder of 500 innocents every day will not be tolerated.
Bachem - this is only the beginning. All of the security, cameras and burglar alarms that you can buy will not save you now. Sever any and all ties to HLS. If not - things can only get worse. See you soon!"