Veckans dagar

Jag skulle föreslagit följande:
Ponera att du har en tabell som ser ut ungefär så här;

xdatum | ftid | ttid | rubrik

weekno=38
y=2002

startdate= y & "-01-01"
Do Until DatePart("ww", startdate, 2, 2) = weekno
	startdate = DateAdd("d", 1, startdate)
Loop

Response.write "v." & weekno & "<br>"

'--- Öppna  databasen ---'

For d = startdate To DateAdd("d", 6, startdate)
	Response.write day(d) & " " & weekdayname(weekday(d)) & "<br>"
		SQL_hitta = "SELECT * FROM tabellen WHERE xdatum=#"& d &"#"
		Set Rec_hitta = Conn.execute(SQL_hitta)
			Do Until Rec_hitta.eof
				response.write Rec_hitta("ftid") & "-" & Rec_hitta("ttid") &" " & Rec_hitta("rubrik") &"<br>"
			Rec_hitta.movenext
			loop
		Set Rec_hitta = nothing
	response.write "------------------------------------<br>"
startdate = DateAdd("d", 1, startdate)
next

'--- Stäng databasen ---'

Jag vet inte om du är ute efter samma sak men jag hittade en liknande här Hoppas det hjlper på väg allafall

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6644

Tack Johnsen, men....
Jag får samma resultat, "test" ligger ju bara på torsdagen.

 30 lördag
08:00-09:00 test
------------------------------------
31 söndag
08:00-09:00 test
------------------------------------
1 måndag
08:00-09:00 test
------------------------------------
2 tisdag
08:00-09:00 test
------------------------------------
3 onsdag
08:00-09:00 test
------------------------------------
4 torsdag
08:00-09:00 test
------------------------------------
5 fredag
08:00-09:00 test
------------------------------------

Jag gjorde en liten databas (veckobas.mbd) i access med en tabell (tabellen) enligt nedan.

   id     | xdatum     | ftid  | ttid  | rubrik
(räknare) |(datum/tid) |(text) |(text) | (text)
---------------------------------------------------
    1     | 2002-09-16 | 07:00 | 09:30 | Få se nu!
    2     | 2002-09-16 | 07:15 | 07:35 | test
    3     | 2002-09-19 | 18:00 | 18:30 | Godnatt

Resultatet blev följande:

v.38
16 måndag
07:00-09:30 Få se nu!
07:15-07:35 test
------------------------------------
17 tisdag
------------------------------------
18 onsdag
------------------------------------
19 torsdag
18:00-18:30 God natt
------------------------------------
20 fredag
------------------------------------
21 lördag
------------------------------------
22 söndag
------------------------------------

Med denna kod:

<%
weekno=38
y=2002

startdate= y & "-01-01"
Do Until DatePart("ww", startdate, 2, 2) = weekno
	startdate = DateAdd("d", 1, startdate)
Loop

Response.write "v." & weekno & "<br>"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.mappath("veckobas.mdb")

For d = startdate To DateAdd("d", 6, startdate)
	Response.write day(d) & " " & weekdayname(weekday(d)) & "<br>"
		SQL_hitta = "SELECT * FROM tabellen WHERE xdatum=#"& d &"#"
		Set Rec_hitta = Conn.execute(SQL_hitta)
			Do Until Rec_hitta.eof
				response.write Rec_hitta("ftid") & "-" & Rec_hitta("ttid") &" " & Rec_hitta("rubrik") &"<br>"
			Rec_hitta.movenext
			loop
		Set Rec_hitta = nothing
	response.write "------------------------------------<br>"
startdate = DateAdd("d", 1, startdate)
next

Conn.Close
set Conn = nothing
%>

Tack, så d-ja mycket, underbart, och enkelt* va?!

* För dem som kan det. ;)