Nicht ganz - weil der Vergleich nur dann passen w�rde (das Else
zutr�fe), wenn die Schleife �ber das letzte Aktionsdatum hinausgelaufen
ist. Verstehe ich das richtig als: es gibt Zeiten mit Aktionen und
dazwischen sind Zeiten ohne Aktion. Falls ja, kommst Du nicht umhin das
Aktionsende auch zu erfassen.
Dim i, sAStart(27), sAEnd(27), sAkt(27)
Const sAktnix
sAktnix = "zurzeitkeineaktion.htm"
sAStart(1) = dateserial(2001,09,30)
sAEnde(1) = dateserial(2001,10,1)
sAkt(1) = "aktion1.htm"
sAStart(2) = dateserial(2001,10,3)
sAEnde(2) = dateserial(2001,10,5)
sAkt(2) = "aktion2.htm"
....
For i = 1 to 27
If date()>= sAStart(i) and date()<=sAEnde(i) Then
AnzuzeigendeSeite = sAkt(i)
End If
Next
' am Ende immer no nix gefunden, dann Default
If AnzuzeigendeSeite = "" Then AnzuzeigendeSeite = sAktnix
---------------
Oder Alternative
(d�rfte schneller laufen, da sobald was gefunden wurde die Schleife
abgebrochen wird und der Check am Schluss entf�ltt)
---------------
For i = 1 to 27
If sAStart(i) >= date() Then
If sAEnde(i) <= date() Then
AnzuzeigendeSeite = sAkt(i)
Else
AnzuzeigendeSeite = sAktnix
End If
' Passt - aus is mit Schleife
Exit For
End If
Next
--
Viele Gr��e
Hubert Daubmeier
-----Original Message-----
From: Michael Mayr [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 18, 2001 12:02 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] AW: [aspdebeginners] RE: [aspdebeginners] AW:
[aspdebeginners] RE: [aspdebeginners] datumsabh�ngige anzeige
danke hubert, das nenn ich nen ansatz ;)
nur eine kleine frage h�tt ich da noch: es sollte noch ein else rein,
damit die seite "zurzeitkeineaktion.htm" angezeigt wird. bitte
korrigiere meinen vorschlag, falls er nicht stimmt:
Dim i, sZR(27), sAkt(27)
Const sAktnix
sAktnix = "zurzeitkeineaktion.htm"
sZR(1) = dateserial(2001,09,30)
sAkt(1) = "aktion1.htm"
sZR(2) = dateserial(2001,10,1)
sAkt(2) = "aktion2.htm"
For i = 1 to 27
If date()>= sZR(i) Then
AnzuzeigendeSeite = sAkt(i)
else
AnzuzeigendeSeite = sAktnix
End If
Next
gruss
michael
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
