Zitate-Fenster

[Herbert]

Hallo selfhtml-Gemeinde,

ich möchte in meine HP einen Textbereich einbauen, in dem zufallsgesteuert oder zeitgesteuert (jeden Tag ein neues) ein Zitat aus einer vorgegebenen Sammlung erscheint.

In den einschlägigen Archiven habe ich leider nichts derartiges gefunden.

Hat jemand eine Idee, wie das geht oder kennt eine Quelle, wo es steht?  (schönes Gedicht ;-))

Danke im Voraus
Herbert

[killingkermit]

Hallo selfhtml-Gemeinde,

ich möchte in meine HP einen Textbereich einbauen, in dem zufallsgesteuert oder zeitgesteuert (jeden Tag ein neues) ein Zitat aus einer vorgegebenen Sammlung erscheint.

In den einschlägigen Archiven habe ich leider nichts derartiges gefunden.

Hat jemand eine Idee, wie das geht oder kennt eine Quelle, wo es steht?  (schönes Gedicht ;-))

Danke im Voraus
Herbert

Hallo Herbert,

ich habe sowas ähnliches gefunden.
Kennst du www.metager.de ?? da gibt es auch jeden Tag ein neues Zitat
geh mal auf folgenden Link  http://meta.rrzn.uni-hannover.de/faq.html

ich hoffe, das hilft dir weiter !

mfg
killingkermit

[Thomas Rupp]

Hi Herb,
da habe ich auch schon ewig rumgesucht und folgende Lösung für unser Intranet (M$ verseucht, benötigt daher IIS 4.0 und das IIS Resource Kit).
Die Komponente ContentRotator sucht aus einer Datei zufällig ein Zitat aus. Ich schreibe das in eine Datei, die beim ersten Aufruf pro Tag neu erstellt wird.
Coding sieht wie folgt aus (ASP):
<%
If Application("TOD") <> date() THEN
 ' Aktuellen Tip of the day holen und in Variable TOD schreiben
 Set Tip = Server.CreateObject("IISSample.ContentRotator")
 TOD = Tip.ChooseContent("/Zitat.txt")
 Set Tip = Nothing
 ' Tip of the day in die Ausgabedatei schreiben
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objTStream = objFSO.CreateTextFile("E:/TOD.txt", TRUE, FALSE)
 objTStream.WriteLine TOD
 objTStream.Close
 Set objFSO = Nothing
 Set objTStream = Nothing
 Application("TOD") = date()
END IF
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.OpenTextFile("E:/TOD.txt")
Tip = objTStream.readAll()
Set objFSO = Nothing
Set objTStream = Nothing
Resonse.Write(Tip)
%>

Hope this helps
Thomas

[tk]

Hallo Herbert,

ist zwar schon eine Weile her, sollt aber noch funktionieren.
http://www.klewe.info/marduk/

Gruß,
Thomas