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
%>
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. :)
