---
title: "Sortera efter datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60911-sortera-efter-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ceeron"
published: "2002-12-02T17:30:53.000Z"
updated: "2002-12-02T18:28:17.000Z"
replies: 6
views: 252
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/60911-sortera-efter-datum"
---

# Sortera efter datum

## #1 — Ceeron, 2002-12-02T17:30Z

Testade o säka lite men hittade inte...

Jag har en db med massa nyheter
Skulle vilja loopa upp dom så att om dagen visas o sedan alla nyheter som skrivits den dagen.

<https://www.theinclan.com>
för exempel på hur jag menar

alltså:

datumet
nyhet1
nyhet2

datum2
nyhet3

att nyheterna lägger sig under datumet...

Hoppas att någon förstår va jag menar o kan hjälpa till med detta ;)

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

## #2 — LarsG, 2002-12-02T17:35Z

```
set rs = connect.execute("select * from news order by newsDate desc")
pDate = ""
while not rs.eof
   if pdate = "" or cdate(pdate) <> cdate(rs("newsDate")) then
     pdate = cdate(rs("newDate"))
     response.write pdate & "<br>"
  end if
  response.write rs("news") & "<br>"
  rs.movenext
wend
```

i princip alltså

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

## #3 — Ceeron, 2002-12-02T17:45Z

måste erkänna att jag fattade noll där ;)

detta e vad jag har nu:

tabellen innehåller:
newsID, headline, news(nyheten alltså), author, newsDate

```
<%
	lcid=2057

	Function FixaBR(str)
	  FixaBR = Replace(str, vbCrLf, "<br>" & vbCrLf)
	End function

	Set RS = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM news ORDER BY newsDate DESC"
	RS.Open SQL, Connect, 3, 3

	Do Until RS.EOF
%>

<%=RS("headline")%> posted <%=RS("newsDate")%>
 by <%=RS("author")%>
<br />
<%=delaText(FixaBR(RS("news")))%> <br /><br />

<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
```

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

## #4 — LarsG, 2002-12-02T17:55Z

Jag jämför om nästa nyhet har samma datum som föregående nyhet. Om det är olika så skriver man ut datumet. Det fungerar eftersom nyheterna kommer i datumordning.

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

## #5 — Ceeron, 2002-12-02T17:57Z

Juste va e "wend" som du skrivit ut sist av det du skrev?

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

## #6 — LarsG, 2002-12-02T17:59Z

wend avslutar en while på samma sätt som loop avslutar en do until

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

## #7 — Ceeron, 2002-12-02T18:28Z

Eftersom mitt datumfält var inlaggt med Now så funkade inte det du skrev o eftersom jag inte e så duktig la jag bara till en till tabell som bara sparade datumet.

Resultatet:

```

<!-- #include file="delaText.inc" -->
<%
	lcid=2057

	Function FixaBR(str)
	  FixaBR = Replace(str, vbCrLf, "<br>" & vbCrLf)
	End function

	Set RS = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM news ORDER BY newsDate DESC"
	RS.Open SQL, Connect, 3, 3

	pDate = "0"
	Do Until RS.EOF
   	If pDate = "0" or cdate(pDate) <> cdate(RS("showDate")) Then
     	pDate = cdate(RS("showDate"))
%>

	<tr><td class="datum"><%=pDate%></td></tr>

	<% end if %>

	<tr><td class="news"><%=RS("news")%></td></tr>
<%
  	rs.movenext
	Loop

	RS.Close
	Set RS = Nothing
%>
```

Allt funkar nu =)
Tackar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60911-sortera-efter-datum