Hallo Claudius,
http://81.169.165.95/screenshot.jpg
Der Kalender ist so aufgebaut (für Säle, Zimmer oä)
Beispielsweise habe ich hier ein Kontingent vom 22 bis 27 eingetragen
welches 3 x verfügbar ist (zb sind 3 Säle vom 22 bis 27 frei)
Nun möchte ich halt mehrere Kontingente eingetragen haben.
Im eigentlichen ist das der Kalender
for i = Month(Date()) to Month(Date())+11
if i > 12 then
Monat = i-12
Jahr = Year(Date())+1
else
Monat = i
Jahr = Year(Date())
end if
Response.Write "<tr><td>" & vbcrlf _
& "<table cellpadding=""2"" cellspacing=""1"">" &
vbcrlf _
& "<tr>" & vbcrlf _
& "<td
class=""m"">"&MonthName(Monat,true)&"/"&Jahr&"</td>" & vbcrlf 'Monat/Jahr
For j = 1 to getDaysOfMonth(Monat,Year(Now()))
tdate = cdate(j&"."&Monat&"."&Jahr&"")
Response.Write "<td "
select case WeekDayName(WeekDay(tdate))
case "Samstag","Sonntag"
if date_from <= tdate and date_to =>
tdate then 'Vorhandenes Kontingent als belegt markieren
Response.Write
"class=""weav"">"&room_count&""
else
if Monat = Month(Date()) and j <
Day(Date()) then
Response.Write "class=""weov"">x"
'Vergangene Wochenenden
else
Response.Write
"class=""we""> " & vbcrlf ' Wochenenden
end if
end if
case else
if date_from <= tdate and date_to => tdate
then
Response.Write
"class=""av"">"&room_count&"" 'Anzahl der belegten Räume
else
if Monat = Month(Date()) and j <
Day(Date()) then
Response.Write "class=""dov"">x"
'Vergangene Tage
else
Response.Write
"class=""d""> " & vbcrlf 'Tage
end if
end if
end select
Response.Write "</td>" & vbcrlf
Next
Response.Write "</tr></table>" & vbcrlf _
& "</td></tr>" & vbcrlf
next
Response.Write "</table>"
Die Kontingente sind mit einem Begin und Enddatum versehen.
Wie kann ich das nun lösen?
Danke für alle Hilfe
Martin
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse
