Hvorfor stopper den loop?

Du mangler et da også et LOOP nederst.

Jeg synes i det hele taget, den kodestump ser lidt halvfærdig ud.

Ja det er hellet ikke det hele, men det er det der er skyld i den sider loop uden do.

Det tvivler jeg nu på.

Jo for når jeg fjerner
if Not (rs.BOF Or rs.EOF) Then
rs.PageSize = antal
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
så virker det.

Så er det vel fordi, du mangler et End If.

Det aktuelle postsæt understøtter ikke bogmærker. Det kan skyldes en begrænsning af provideren eller af den valgte markørtype.
/acomma/user2.asp, line 98

Do while not rj.eof
  strSQL = "select * from projekter1 where ID = " & rj("projektid") & " order by " & sort & " " & sort1 & ""
  set rs = conn.execute(strSQL)
  rs.Open strSQL, strDSN, 1
  If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = antal
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   
    ' Og så skal du vel også gøre noget med rs - f.eks. at skrive den ud?
  end if
loop

Det er jo den samme kode som jeg selv har skrevet?

Nej det der det godt nok ikke! Du mangler:

end if
loop

- i bunden og det er skam lige præcis grunden til at din kode ikke vil kompilere.

Nej. Jeg oplyste kun den del af koden hvor fejlen var. Det andet er skam også i min kode.

Har du End If og Loop med?

Er det meningen at vi så skal gætte på hvad du ellers har udeladt? Den kodestump du angav kunne i hvert fald ikke køre uden de to linjer.

Som du måske kan læse mellem linierne, ville det være behageligt, om du viste hele din kode, i stedet for de små flyvende brudstykker og fejlmeddelelser.

I din kode har du to linjer med rs lige efter hinanden:

set rs = conn.execute(strSQL)
rs.Open strSQL, strDSN, 1


Prøv at rette det til en linje rs.Open da du bruger paging.

rs.Open strSQL, Conn, 1

Får du noget med Not an Object ''  fejl så tilføje denne linje:
Set rs = Server.CreateObject("ADOBD.Recordset")

Lige før rs.Open linjen.

ADODB