---
title: "listning efter datum - komplicerad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95529-listning-efter-datum-komplicerad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-01-22T20:27:51.000Z"
updated: "2004-01-22T21:58:59.000Z"
replies: 1
views: 184
page: 1
pages: 1
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/95529-listning-efter-datum-komplicerad"
---

# listning efter datum - komplicerad

## #1 — magnusfeldth, 2004-01-22T20:27Z

Nu får ni nåt att bita i. Jag försöker få en nyhetssida att lista nyheterna efter denna form

```
Vecka 3
Söndag
Nyhet 123
Nyhet 122
Nyhet 121

Fredag
Nyhet 120

Torsdag
Nyhet 119
Nyhet 118

Måndag
Nyhet 117

Vecka 2
Samma stil ovan

Vecka 1
Samma stil som ovan
```

Alltså att den listar de nyheterna från de senaste tre veckorna som har info i sig. På de dagar som inte har nyhet skrivs inte dagen ut, på de dagar med flera nyheter skrivs alla dessa ut.

Förstår ni vad jag är ute efter?

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

## #2 — Sebbe, 2004-01-22T21:58Z

Är det ungefär såhär du menar?

```
strSQL = "SELECT datum, rubrik, id FROM nyheter ORDER BY id DESC"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If dtmTemp <> objRS("datum") Then
      If DatePart("ww", dtmTemp) <> DatePart("ww", objRS("datum")) Then
        Response.Write("<br>Vecka " & DatePart("ww", objRS("datum"))
      End If

      Response.Write("<br>" & WeekdayName(Weekday(objRS("datum"))))
    End If

    Response.Write("<br>" & objRS("rubrik"))
    dtmTemp = objRS("datum")
    objRS.MoveNext
  Loop
End If

objRS.Close : Set objRS = Nothing
```

Obs! Otestad kod, funkar troligen inte vid första försöket! ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/95529-listning-efter-datum-komplicerad