hubert, ich nehme an es wird so kommen, dass zwischen den aktionen mal ne pause ist. daher ist dein script sicher goldrichtig. danke dir f�r die rasche und effiziente hilfe *rechnungbitteperemail ;-)* liebe gr�sse michael -----Urspr�ngliche Nachricht----- Von: Hubert Daubmeier [mailto:[EMAIL PROTECTED]] Gesendet: Dienstag, 18. September 2001 12:25 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] RE: [aspdebeginners] AW: [aspdebeginners] RE: [aspdebeginners] AW: [aspdebeginners] RE: [aspdebeginners] datumsabh�ngige anzeige 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 | 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
