<% Const IMGS_DIR = "/|/Documents and Settings/Owner/Desktop/BITE BACK/directaction.info/new/random/" 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 %> <% Const IMGS_DIR = "/|/Documents and Settings/Owner/Desktop/BITE BACK/directaction.info/new/random/" 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 %> <% Const IMGS_DIR = "/new/random/" 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 %> <% 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 %>

released anonymously:

"Facts: Six hunting platforms destroyed.
When: Saturday night.
Where: near Ostfildern (Kreis Esslingen).
How: With a saw.
Why: Because the killing of feeling animals cannot be justified.
Motto: Go vegan."

Original German news release:

"SCHOCK FÜR WEIDMANN KRÄMER
MILITANTE TIERSCHÜTZER FÄLLTEN HOCHSTÄNDE

Extremisten haben in der Nacht von Samstag auf Sonntag (4-5. März) mindestens sechs Hochstände bei Ostfildern (Kreis Esslingen) zerstört.
"Sie haben mein Leben zerstört" erklärt der schockierte Besitzer Krämer (83) mit zitteriger Stimme. "Diese Menschen verstehen nichts von Naturchutz!" Exklusiv fragen wir genauer nach.
"Die Natur reguliert sich nicht von selbst - die Evolution rechnet mit uns Jägern"
Und er fügt hinzu: "Überhaupt gehts den Tieren ohne uns schlecht genug. Jogger, Kinder - alle stören sie die Ruhe des Wildes"

Krämer ist den Tränen nahe. Er nimmt einen beruhigenden Schluck aus dem Flachmann. Das wirkt und eine angenehme Röte steigt in sein Gesicht.

"Die Tierschützer behaupten immer, sie würden friedlich kämpfen.
Die können froh sein, dass wir Jäger so friedlich gesinnt sind."
Er ballt die Fäuste: "Wenn ich einen dieser Terroristen erwische, ergehts ihm schlecht"

Angesägte Leitern? "Habe ich bisher noch nicht gesehen. Aber vorstellen könnte ich es mir schon, daher finde ich die Behauptung durchaus passend." Ob bei Ostfildern an- der abgesägt wurde?
"Abgesägt. Auch drei Kanzeln. Ich hatte ihnen sogar Namen gegeben.
Die kleinen Ansitze waren aber teilweise so morsch, dass ich damit keine grossen Probleme habe. Die hätte ich bereits seit Monaten wegschaffen müssen damit spielende Kinder nicht gefährdet werden"

---
FAKTEN:
6 Ansitze, davon 3 Kanzeln
Wann: Samstag nacht
Wo: bei Ostfildern (Kreis Esslingen)
Wie: Mit der Säge
Warum: weil Tötung leidensfähiger Lebewesen durch nichts zu
rechtfertigen ist.
Motto: Go vegan."