Daten monatsweise gruppieren

[redwing78]

Danke vielmals, ich glaub, ich kriegs hin!

 

[redwing78]

Hi! Ich habs mit einer monatsweisen Gruppierung hingekriegt.
In einer Zeile steht also der Monat,
darunter alle Termine in diesem Monat.

Wie funktioniert das, wenn ich das Ganze nach Tagen sortiert ausgeben will?
Also zB in einer Zeile das Datum und darunter alle Termine?

zB
31.10.2006
1170 Wien, Mozartgasse 3, 10-18 Uhr
6020 Innsbruck, Olympiastr. 4, 13-22 Uhr
usw.

DANKE - LG, redwing78

 

[Luzie]

Hi! Ich habs mit einer monatsweisen Gruppierung hingekriegt.
In einer Zeile steht also der Monat,
darunter alle Termine in diesem Monat.

Naja, 3 Monate ist ja keine Zeit

Wie funktioniert das, wenn ich das Ganze nach Tagen sortiert ausgeben will?
Also zB in einer Zeile das Datum und darunter alle Termine?

zB
31.10.2006
1170 Wien, Mozartgasse 3, 10-18 Uhr
6020 Innsbruck, Olympiastr. 4, 13-22 Uhr
usw.

Das funktioniert genauso wie die monatweise Gruppierung, Du musst das Datum halt als Variablenwert nehmen.

 

[redwing78]

Hi!
Ich wollte nur ausdrücken, daß anstelle der monatsweisen Gruppierung eine tageweise entstehen soll. Ich habe auch schon versucht, "month" durch "day" zu ersetzen, aber das funktioniert nicht. Ich erhalte dann die Termine zeilenweise und ganz links einfach nur den Monatstag.

Hier mein Code & danke im Voraus für die Hilfe!
Eine Vorschau der aktuellen Version hab ich unter http://www.auf-online.at/ eingestellt.

strSQL = "SELECT TerminID, Datum, Uhrzeit, Adresse, PLZ, Ort, TerminTyp, Infos FROM AufOnlineTermine WHERE  Datum >= DATE() ORDER BY Datum"
objRS.Open strSQL, objCon
objRS.MoveFirst ' Geht zum ersten Datensatz
intCounter = 1
myDay = day(objRS("Datum"))
while not objRS.EOF %>
  <tr>
    <td class="texts" width="30%">
<% if myDay = "" or myDay = day(objRS("Datum")) or myDay <> day(objRS("Datum")) then
Response.Write day(objRS("Datum")) & objRS("Datum") & "</td><td width='70%' class='texts'>" & objRS("Adresse") & objRS("PLZ") & objRS("Ort") & "</td></tr>"
end if 
				
intCounter = intCounter + 1
objRS.MoveNext ' Geht einen Datensatz weiter
Wend %>

 

[Luzie]

Hi

schau Dir nochmals diesen Scriptcode an und vergleiche ihn mit dem, welchen Du zuletzt gepostet hast.

http://www.tutorials.de/forum/1252680-post10.html

Überprüf die Abfragen, Du Du wirst selbst den Fehler sehen.

 

[redwing78]

DANKE, ich habs jetzt.
Müsste so funktionieren: http://www.fckitz.at/terminausgabe.asp

if myDay = "" or myDay <> day(objRS("Datum")) then
			  Response.Write "<div style='font-weight:bold'>" & objRS("Datum") & "</div>"
			  myDay = day(objRS("Datum"))
			  end if
			  Response.Write "<div style='padding-left:20px'>" & objRS("Adresse") & ", " & objRS("PLZ") & " " &  objRS("Ort") & " (" & objRS("Infos") & ")</div>"