Opdeling af recordset.

Ja du kan tilføje en tæller til din loops:

intCount = 0
do while not rs.EOF and intCount < 7
  Response.Write rs("navn") & "<br>"
  intCount = intCount + 1
  rs.Movenext
loop

..
..kode
..

do while not rs.EOF and intCount < 40
  Response.Write rs("navn") & "<br>"
  intCount = intCount + 1
  rs.Movenext
loop

..
..kode
..

do while not rs.EOF
  Response.Write rs("navn") & "<br>"
  intCount = intCount + 1
  rs.Movenext
loop

Ja.... Du bør smide dit recordset ned i et array med "GetRows"...

F.eks.

Dim arrNavne
arrNavne = objRS.GetRows()

....

Udskriv...
<%
For i = 0 To 6
  Response.write(arrNavne(i,0) & "<br>" & arrNavne(i,1))
Next
%>
bla bla bla
<%
For i = 7 To 39
  Response.write(arrNavne(i,0) & "<br>" & arrNavne(i,1))
Next
%>
bla bla bla
<%
For i = 39 To 49
  Response.write(arrNavne(i,0) & "<br>" & arrNavne(i,1))
Next
%>

hov... havde ikke set du havde postet eagleeye.... beklager

steen >> det helt i orden, det altid godt med nogle alternativer :)

Tak for to gode svar. Jeg giver jer begge point, men eagleeye er nødt til lige at svare.

Ok her et svar fra mig ;)