do while not (rstemp.eof or rstemp.bof)

IF rs.eof Then
  Response.write(\"ingen resultat\")
Else
Do until rs.eof

rs.movenext
Loop
End if
Set rs = nothing

do while not rstemp.eof
kode
wend

If rs.RecordCount > 0
  If NOT rs.BOF Then
    rs.MoveNext
  End If
  Do While NOT rs.EOF
    Løkke kode
    rs.MoveNext
  Loop
  Response.Write \"Der er ikke flere resultater\"
Else
  Response.Write \"Intet fundet\"
End If

Ups..En lille fejl:
If rs.RecordCount > 0
  If NOT rs.BOF Then
    \'Fejlen var her
    rs.MoveFirst
    \'Slut på fejlfinding
  End If
  Do While NOT rs.EOF
    Løkke kode
    rs.MoveNext
  Loop
  Response.Write \"Der er ikke flere resultater\"
Else
  Response.Write \"Intet fundet\"
End If

hmm hvorfor virker det ikke

Ved godt det er brugt på en lidt spasset måde jeg har brugt den på... men kunne ikke finde andre løsninger.. hvis i har en.. kan i få pointene

Set conntemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"erhverv.mdb\") & \"; UID=Administrator; PWD=\"
  conntemp.open DSN
sql = \"SELECT top 1 * from kunder  WHERE kartegori=\'\"& request(\"type\") &\"\' and klasse=\'2\' \"
set rstemp = conntemp.execute(sql)

If rstemp.RecordCount > 0 then
  If NOT rstemp.BOF Then
      rstemp.MoveFirst
      End If
  Do While NOT rstemp.EOF
  response.write \"<a href=\"\"?mode=kartegorie&slags=\"& request(\"type\") &\"&klasse=2\"\">Næste</a></td></tr></table>\"
    rstemp.MoveNext
  Loop
Else
  Response.Write \"<tr align=\"\"left\"\" align=\"\"left\"\" valign=\"\"middel\"\"><td width=\"\"120\"\"></td>\"
End If 

Få du en fejl?

Jep det gjorder jeg - men prøvede netsrac i stedet...  tark for hjælpen

Hvilken fejl fik du?