---
title: "Veckans dagar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/53639-veckans-dagar/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2002-09-18T17:26:09.000Z"
updated: "2002-09-22T17:09:19.000Z"
replies: 24
views: 953
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/53639-veckans-dagar"
---

# Veckans dagar

_Sida 2 av 2._

## #21 — Johnsen, 2002-09-20T15:44Z

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 ---'
```

Permalänk: https://www.webforum.nu/p/793120

## #22 — cupy, 2002-09-20T15:54Z

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>

Permalänk: https://www.webforum.nu/p/793127

## #23 — Jesper T, 2002-09-20T16:12Z

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
------------------------------------
```

Permalänk: https://www.webforum.nu/p/793136

## #24 — Johnsen, 2002-09-20T21:47Z

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
%>
```

Permalänk: https://www.webforum.nu/p/793330

## #25 — Jesper T, 2002-09-22T17:09Z

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

\* För dem som kan det. ;)

Permalänk: https://www.webforum.nu/p/794399

---

Tråden på webben: https://www.webforum.nu/amne/asp/53639-veckans-dagar/page2  
Föregående sida: https://www.webforum.nu/amne/asp/53639-veckans-dagar.md