% 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:
Chinchilla fur farmers home and landlords home attacked
On the night to august 7 we made a visit to chinchilla fur farmer Henry Yrnevik that lives in a house on Reagatan 3 in Uppsala, Sweden. We painted slogan on his house to show him that the struggle against his disgusting farm continues.
Before that we had visited a pig farmer Ingemar Johnsson that owns and rents out the building where Yrnevik runs his chinchilla fur farm. Slogans were painted on his house and garage that he should stop renting out the building to the fur farmer. We also repainted 2 of his cars and his outside furniture.
Hope it will be expensive and make him think again.
- DBF (Swedish ALF)