Fejl i EOF sætning

Hejsa eksperter!

Jeg skal have vist et bestemt billede hvis der i én tabel findes en relation i en anden. Jeg har følgende kode, som efter min mening burde virke - men det gør den ikke??  håber der er nogle der kan hjælpe!!

  <%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_artmusic_STRING
    %>
  <%
set mainer = conn.Execute("select * from bands where BID =" & request.QueryString("BID") & "")
set rsp = conn.Execute("select * from pressem where Pkey =" & mainer("BID") & "")

do while not rsp.eof
if rsp("Pkey") = mainer("BID") then
  response.write "<img src='../../images/ikoner/presse.gif' width='70' height='21'>"
else
  response.write "<img src='../../images/ikoner/pressen.gif' width='70' height='21'>"
end if
  rst.MoveNext
loop
conn.close
%>