Är det nåt fel på denna koden? Jag vill att det ska listas 20 trådar på varje sida men det blir inte nån mer sida. Trådarna är många nu och de ligger kvar under varann.
Vad kan vara fel?

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

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

Addera = "Select * From asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=20 OR RecSet.EOF ' <-- 20 senaste trådarna

nytt = "no"

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

Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic

DO UNTIL RecSet2.EOF OR nytt = "yes"
IF RecSet2("DATUM") > NOW - 1 THEN
nytt = "yes"
END IF

RecSet2.MOVENEXT
LOOP

RecSet2.CLOSE
%>


Behöver snabb hjälp.
Jag vet inte riktigt hur jag måste göra för att det ska bli fler sidor.
Måste jag göra extra sidor med kod på? I så fall hur och vad för kod?

*shit* Måste plugga mer tror jag... *suck*

Hej.

Vill du dela upp trådarna på flera sidor??

Kolla detta:
http://www.pellesoft.nu/login/articles/asp/asp_paging.asp

Tack så mycket. Jag ska kika på det!

Har läst igenom det nu men jag förstod inte så jättemycket at hur jag ska göra.
Jag ska exprimentera lite så återkommer jag.
tack i alla fall!

www.fatmilk.nu
Kolla Paging!