asp foto gallerij database probleem

[Verwijderd]

hallo

Het principe is heel simplel ik heb een access database en een map waarin foto's staan deze moeten in op een asp pagina getoond worden.
Nu krijg ik steeds error '80020009' Exception occurred.
Ik wil dat de foto's zo getoond worden dat er 4 naast elkaar staan en dan met een nieuwe rij begint. Ik weet wel wat het probleem is maar komt er niet uit
Moet ik een bepaalde error handling erin zetten Het zijn in totaal 55 foto's

ASP:

If not RS.eof then
     RS.movefirst
    Do
     Response.write "<table width=400 cellpadding=3><tr>"
     For z=1 to 4
     Response.write "<td width=100><img src=""" & RS("verw")&"""> 
                 Response.write "<BR></td>"
     Rs.movenext
     next
     Response.write "</tr>"    
     Response.write "</table><BR><BR>"      
      Loop until RS.eof     
End if

Repins

[ Voor 17% gewijzigd door drm op 17-12-2002 13:51 ]

[drm]

offtopic:
ff code tags toegevoegd

Je moet niet vergeten dat je in je for-loop op regel 5-9 ook zou moeten checken op RS.eof
Anyhoet is dit niet echt de mooiste manier om 't op te lossen, ik zou 't liever zo doen:

code:

voor elk record
   als ( record is de eerste uit een rij van 4 )
      print '<tr>'

   print '<td>' 
   print record inhoud 
   print '</td>'
   
   als ( record is de laatste uit een rij van 4 )
      print </tr>'
en weer verder

[Verwijderd]

hetgeen je ook zou kunnen proberen is hetvolgende: gooi alle records in een javascript array en dan middels javascript/dhtml de inhoud van je tabel vullen.

[drm]

ja, en dan zit je in javascript met 't zelfde probleem... joepie...

[MrBrown]

drm schreef op 17 december 2002 @ 14:09:
ja, en dan zit je in javascript met 't zelfde probleem... joepie...

Je vergeet dat je dan het IE / Nestscape / Opera probleem er nog eens BIJ krijgt.....

[Verwijderd]

ok.ok.. u'r right... forget my suggestion.

[Arnaud]

Wat dacht je van het volgende?

If not RS.eof then
RS.movefirst
Do
Response.write "<table width=400 cellpadding=3><tr>"
For z=1 to 4
If RS.EOF Then
Response.Write "<td width=100> </td>"
Else
Response.write "<td width=100>[img]"""[/img]
Response.write "<BR></td>"
End If
Rs.movenext
next
Response.write "</tr>"
Response.write "</table><BR><BR>"
Loop until RS.eof
End if

[drm]

MrBrown:
Je vergeet dat je dan het IE / Nestscape / Opera probleem er nog eens BIJ krijgt.....

mwah, dat valt tegenwoordig wel mee, hoor

[Verwijderd]

Bedankt arnaud ben wel iets verder ja
maar heb toch nog ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

[Arnaud]

De foutmelding krijg je omdat je eerst controleert op RS.EOF, maar vervolgens toch RS.movenext doet. Als je "Rs.movenext" vervangt door "If Not RS.EOF Then RS.MoveNext" zou dit moeten werken.

Meestal kun je beter een While Not ... Wend constructie gebruiken zoals deze:
While Not myrs.eof
'Doe iets nuttigs, zoals Response.Write RS("verw")
myrs.movenext
Wend

[Phenomenon]

Lees het hierboven ook nog ff, want dat moet je ook doen.

Visual Basic:

For z=1 to 4
     Response.write "<td width=100>[img]"""[/img] 
                 Response.write "<BR></td>"
     Rs.movenext
next

En met dit stukje code krijg je ook problemen. Omdat je hier niet controleerd of hij .EOF is en wel een movenext gebruikt.

[Verwijderd]

Bedankt arnaud het werkt. Nogmaals erg bedankt.

Repins