% 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 the Swedish ALF SG:
"On the night to June 26, we decided to visit two fur shop in suburbs to Stockholm. At the first one, we are happy to announce that the fur shop in Midsommarkransen has closed down after several attacks from animal rights activists that have destroyed windows and glued the locks. At the second fur shop in Västertorp, all windows (4) was destroyed with red-coloured glass-etching fluid.
We would like to dedicate these action to the suspected mink liberator Peter Young in the US.
Happy Birthday Peter!