% 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:
Don't Call It A Comeback!
The ALF Pirates for Animal Liberation division headed out on the seas last night to send a message to Carr Securities. Carr President Walter "Wally" Carucci is a sailing buff, and races with his boat "Amazing Grace" (j-105 35 105 105) as a member of the Seawanhaka Corinthian Yacht Club. After Carr made the poor choice of making a market for Huntingdon Life Sciences we thought it best to kick Carr Securities in the Caruccies.
Our pirate ship landed on Center Island in Oyster Bay and while avoiding the Bayville police and a great deal of activity around the club we still painted the place red. Fences and outside structures were painted with anti HLS slogans and huge letters read "FUCK YOU CARR".
NOW YOU CAN PLAY A
Vascotto) - email@example.com