BOF or EOF fejl

er der nogen der kan se hvad jeg gør galt her.
jeg får denne fejl:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Men jeg får den efter at den har kørt rigtig første gang, altså den viser en billede og så fejler den for næste billede.

håber i forstår koden, har skipped en del som ikke syntes var relevant

----------kode før---------
SQL for databaseA
DO WHILE NOT databaseA.EOF
for i=1 to 4
SQL for databaseB
----------vv kode vv---------

varevalgt = ""
varevalgttext = ""
nopic = 0
Do While Not databaseB.EOF
if CInt(nopic) = 0 then
set fso = Server.Createobject("scripting.filesystemobject")
if fso.FileExists(Server.mappath("/billeder/" & AEkonvert(databaseB("bla1")) & ".JPG")) then
varevalgt = databaseB("bla1")
varevalgttext = databaseB("bla2")
nopic = 1
end if
set fso=nothing
end if
databaseB.MoveNext
Loop

if CInt(nopic) = 1 then
%><img src="/billeder/<%=varevalgt%>.jpg" alt="<%=varevalgt%> - <%=varevalgttext%>"><%
else
response.write "<img src=billeder/nopic.png>"
end if

------- ^^ kode ^^---------
next
databaseA.MoveNext
loop
----------------