Ziel:

Inhalte sollten zu einem bestimmten Zeitpunkt angezeigt werden. Wobei es mehrere Varianten hierfür gibt.

1. Inhalt soll ab einem bestimmten Zeitpunkt für immer angezeigt werden
2. Inhalt soll ab einem bestimmten Zeitpunkt bis zu einem bestimmten Zeitpunkt angezeigt werden.
3. Inhalt soll bis zu einem bestimmten Zeitpunkt angezeigt werden.

Lösung:

Der Inhalt ist einer Datenbank gespeichert. In vereinfachter Form gibt es 3 Datenbankfelder.

1. fld_inhalt
2. fld_gueltigvon
3. fld_gueltigbis

Folgende Eingabemöglichkeiten bestehen:

1. Variante
   1. fld_inhalt = Inhalt1
   2. fld_gueltigvon = 22.03.2009 10:00:00
   3. fld_gueltigbis ist leer
2. Variante
   1. fld_inhalt = Inhalt1
   2. fld_gueltigvon = 22.03.2009 10:00:00
   3. fld_gueltigbis 01.052009 10:00:00
3. Variante
   1. fld_inhalt = Inhalt1
   2. fld_gueltigvon ist leer
   3. fld_gueltigbis 01.05.2009 10:00:00

 Der relevante Code hierfür:

‘#######################################
‘Anfang
‘Zeitgesteuertes Ausspielen von Inhalten
‘#######################################

If Not IsDBNull(.Item(“gueltigvon”))  Then
  gueltigvon = .Item(“gueltigvon”)
Else
  gueltigvon = rightNow
End If
If Not IsDBNull(.Item(“gueltigbis”))  Then
    gueltigbis = .Item(“gueltigbis”)
Else
   gueltigbis = rightNow
End If 
Select Case DateTime.Compare(rightNow, gueltigvon)
  Case 0
   ‘t1 is the same as t2
   blgueltiganzeigen =  True
  Case Is < 0
   ‘t1 is earlier than t2
   blgueltiganzeigen = False
  Case Is > 0
   ‘t1 is later than t2
   blgueltiganzeigen = True
End Select

If blgueltiganzeigen = True Then
 Select Case DateTime.Compare(rightNow, gueltigbis)
  Case 0
   ‘t1 is the same as t2
   blgueltiganzeigen = True 
  Case Is < 0
   ‘t1 is earlier than t2
   blgueltiganzeigen =  True
  Case Is  > 0
   ‘t1 is later than t2 
   blgueltiganzeigen =  False
 End Select
End If
If blgueltiganzeigen = True Then
 mypage = .Item(“content”)
 mytitel = .Item(“titel”)
Else
 mypage =  ” ”
 mytitel = ” “ 
End If

‘#######################################
‘Ende
‘Zeitgesteuertes Ausspielen von Inhalten
‘#######################################