% 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 Switzerland:
"We paid a visit in the night to HOLDENER EDUARD ENRICO at BUCHENTRAIN 6 4106 THERWIL BL, SWITZERLAND.
He is the head of global pharmaceutical drug development at ROCHE, a customer of HLS. We arrived in the dead of night, paint stripped his car, slashed the car tires, painted his garage door with paint and also spraypainted the garage door with the words "drop HLS, animal killer, ALF"
Eduard even your big security lights did not stop us. We left without a sound. We will be back and that is a warning to anyone who works with a company who deals with HLS.
For the animals