Hej
Sitter och klurar och kan inte hitta felet. Jag har en bilddatabas där man lägger in bilder efter serie, ex serie 1 är 5 bilder, serie 2 är 3 bilder osv... När jag listar databasen så vill jag att serie 1 visar fem bilder på en rad hoppar ned och visar serie 2 osv. Så jag har skapat en yttre och inre loop. Det är i den inre den hänger sig och jag vet inte riktigt vad felet är...

SQL = "SELECT ID,Image_Group FROM tblImages"
rs.Open SQL, Conn, 1, 3
' ############## BÖRJA DEN YTTRE LOOPEN, SKRIVER UT RUBRIKEN I BILDSERIEN
Do Until rs.EOF
Oldval = rs("Image_Group") ' SPARAR INNEHÅLLET (I EN VARIABEL) I AKTUELL POST
%>
<input type="checkbox" align="top">
','','width=600,height=600,resizable=yes')">" border="1" style="color:darkred" align="middle">
<%
rs.MoveNext ' FLYTTAR FRAM PEKAREN
If Not rs.EOF Then ' KONTROLLERA SÅ ATT PEKAREN INTE ÄR PÅ SISTA RADEN
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ DEN INRE LOOPEN, SKRIVER RESTEN AV BILDSERIEN
Do Until Oldval <> rs("Image_Group") !!!!!! -----HÄR ÄR FELET -----!!!!!!!!
If NOT rs.EOF Then
%>
','','width=600,height=600,resizable=yes')">
" border="1" style="color:darkred" align="middle">
<%
rs.MoveNext
End If
Loop
End If
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ SLUT PÅ DEN INRE LOOPEN
Loop
' ################## SLUT PÅ DEN YTTER LOOPEN #################
%>
SÅ här svarar webbläsaren...
(0x80020009)
Undantag inträffade.

Tacksam för hjälp //Micke

Undantag inträffade får man när man försöker att loopa fler gånger än det finns poster i recordsetet.
Himla dumt och kryptiskt felmeddelande det där, inte lätt att veta vad som felar.


//Anna-Karin

Ändra

Do Until Oldval <> rs("Image_Group")

till:

Do Until rs.Eof OR Oldval <> rs("Image_Group")

Alltså, du måste kolla i "Do Until"-loopen att du inte kommit till slutet av ditt recordset, annars får du felmeddelande när du försöker läsa rs("Image_Group").

Varför inte göra så här:
<code>

strSQL = "SELECT ID, Image_Group" & vbCrLf & _
"FROM tblImages" & vbCrLf & _
"ORDER BY Image_Group, ID"
rs.Open strSQL, Conn
Do Until rs.EOF
If Oldval <> rs("Image_Group") Then
Oldval = rs("Image_Group")
'Skriv ut rubrik
%>
<input type="checkbox" align="top">
<%
End If
'Skriv ut bilder
%>
','','width=600,height=600,resizable=yes')">
" border="1" style="color:darkred" align="middle">
<%
rs.MoveNext
Loop
%>

Fungerar utmärkt, man tackar, bugar och bockar :-)