% 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 UK:
Monock Freight are complete and utter scum. They ship lab animals to their deaths in laboratories, and have been heavily involved in the transport of primates and other animals for Charles River to HLS.
got a fraction of what he deserves when the ALF visited his home and paint-strippered his vehicles. We are onto you and your colleagues in animal abuse John. Like the trains of death that took the Jews to the camps, you deliver helpless animals through the gates of Hell at Huntingdon Life Sciences. For those that have died because of you John, remember their deaths are your fault. You are to blame John - ALF