---
title: "Sorterar fel efter datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98848-sorterar-fel-efter-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "caze"
published: "2004-03-06T14:24:16.000Z"
updated: "2004-03-11T09:32:54.000Z"
replies: 14
views: 1560
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/98848-sorterar-fel-efter-datum"
---

# Sorterar fel efter datum

## #1 — caze, 2004-03-06T14:24Z

I ett forum som jag har nu, uppstår ett trist problem, vilket är att inläggen verkar sorteras efte datumet i månaden, spelar alltså ingen roll vilket månad det är. Alltså att ett inlägg som skrivits den 2 februari sorteras före ett inlägg som skrevs den 16 januari om ni förstår mig rätt..

```
		<%
    
function avrunda(x)
If instr(x,",") OR instr(x,".") Then
avrunda = int(x) + 1
Else
avrunda = x
End If
End function

Dim currentpage, postsperpage, pages, postsshown, strdb, i, nextp, prevp

currentpage = Request("sida")

postsperpage = 8

If currentpage = "" OR currentpage <=0 Then
currentpage = 1
End If

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/aspforum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From forum WHERE ref_id = 0 ORDER BY senastedatum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

pages = avrunda(RecSet.RecordCount/postsperpage)
RecSet.Move ((currentpage*postsperpage)-postsperpage)

nextp = currentpage + 1
prevp = currentpage - 1
%>
```

Kan man kanske hitta felet här i koden...

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

## #2 — Sebbe, 2004-03-06T14:34Z

Kanske en dum fråga, men är fältet i databasen av typen datum?

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

## #3 — caze, 2004-03-06T14:41Z

Vad menar du, det finns en flik i databasen som heter senastedaum ja, eller missförstår jag dig?

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

## #4 — Sebbe, 2004-03-06T14:45Z

Nej, det jag undrade var om fältet i databasen (senastedatum) är av typen datum. :)

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

## #5 — caze, 2004-03-06T15:11Z

Vet inte, hur tar jag reda på det?

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

## #6 — Sebbe, 2004-03-06T15:17Z

Det står i Access när du går in i tabellen i designläge (tror jag det heter). Har tyvärr inte Access, så jag kan inte ge dig en skärmdump, men det ska inte vara alltför svårt att hitta. :)

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

## #7 — caze, 2004-03-06T15:39Z

Tror det , se här:

Bilagor:

- [1.gif](https://www.webforum.nu/a/2974.gif)

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

## #8 — Sebbe, 2004-03-06T15:41Z

Nej, den är ju av typen Text. Ändra det i den högra kolumnen bredvid senastedatum, så borde det nog funka. :)

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

## #9 — caze, 2004-03-07T21:04Z

Det funkade tyvärr inte efter att ha ändrat det du sa :(

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

## #10 — Poffe, 2004-03-08T01:09Z

Hur sparar du datumet i databasen?

Är det rätt format på det, ex. 2004-03-08, och fälttypen är Datum/Tid så ska det fungera.

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

## #11 — caze, 2004-03-08T08:39Z

så här ser koden ut i filen där man skriver ett nytt inlägg:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/aspforum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From forum"
RecSet.Open Addera, Connect, 3, 3

RecSet.AddNew

RecSet("namn") = Session("anvandarnamn")
RecSet("rubrik") = Request.Form("rubrik")
RecSet("inlagg") = Request.Form("texten")
RecSet("email") = Session("email")
RecSet("senastedatum") = now
RecSet("datum") = now
RecSet("senastenamn") = Session("anvandarnamn")
If Request.QueryString("ref_id") = "" Then
RecSet("kategori") = Request.Form("kategori")
End If
RecSet("svar") = 0
RecSet("visningar") = 0
If Request.QueryString("ref_id") = "" Then
RecSet("ref_id") = 0
Elseif Request.QueryString("ref_id") <> "" Then
RecSet("ref_id") = Request.QueryString("ref_id")
End If

RecSet.Update
RecSet.Close
Connect.Close

If NOT Request.QueryString("ref_id") = "" Then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/aspforum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From forum WHERE id = " & Request.QueryString("ref_id")
RecSet.Open Addera, Connect, 3, 3

RecSet("senastedatum") = now
RecSet("senastenamn") = Session("anvandarnamn")
RecSet("svar") = RecSet("svar") + 1

RecSet.Update
RecSet.Close
Connect.Close

End If

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/aspforum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From medlemmar WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
RecSet.Open Addera, Connect, 3, 3

RecSet("senastedatum") = now
RecSet("senasterubrik") = Request.Form("rubrik")
RecSet("inlagg") = RecSet("inlagg") + 1

RecSet.Update
RecSet.Close
Connect.Close

Response.Redirect "default2.asp?val=tackforditt"

%>
```

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

## #12 — caze, 2004-03-10T14:54Z

Ingen som kan se problemet?

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

## #13 — @nders, 2004-03-10T15:01Z

Om fälttypen är datum/tid skall det gå utmärkt att sortera på datumfältet.

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

## #14 — caze, 2004-03-10T21:29Z

> **@nders skrev:**
>
> Om fälttypen är datum/tid skall det gå utmärkt att sortera på datumfältet.

senaste daum är nu Datum i fältet, och det fungerar inte ändå :(

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

## #15 — J.N., 2004-03-11T09:32Z

HEJ!

Tack för all kod, men det har med databasen att göra. 

Som @nders skriver, det ska fungera!

Råd:
\- titta i databasen, skriv in (om)/kontrollera så datumen är rätt formaterade
\- gör en ny tom test-tabell, lägg in data, ska fungera

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/98848-sorterar-fel-efter-datum