loop der ikke looper nok

Jeg har en db med indtil videre 2 billeder i 4 str. Det skal bruges til wallpaper.

Den viser 2 thump, men der er kun links på det første billede 800x600 (osv. de 4 skærm str)

Her er lidt kode.

<%@Language=VBScript%>

<html>
<body>
    <!--#include file=\"include/minconn.inc\"-->
<%
Dim MyConn, SQL, RS
Set MyConn=Server.CreateObject(\"ADODB.Connection\")
MyConn.Open strDSN

SQL = \"Select * From baggrund\"
SQLmenu = \"SELECT * from billeder WHERE (((Bilnr.Billednr)=1));\"
SQLbil = \"SELECT * from bilnr \"



Set RS = MyConn.Execute (SQL)
set RSmenu = MyConn.Execute (SQLmenu)
set RSbil = MyConn.Execute (SQLbil)
%>
<%
Do While not RSbil.EOF%>
<table border= \"1\">
<TR><TD><B><% =rs (\"Navn\")%></B><BR>

<img SRC=\"<% = Application(\"VRoot\") %>/baggrunde/<% = rsbil(\"Thump\") %>\" width=\"250\" height=\"188\" border=\"0\" vspace=\"10\">
</TD>
<TD><%do while not rsmenu.eof%>
<a href=\"visbil.asp?billedid=<%= RSmenu(\"billedID\")%>\"><% = rsmenu(\"Str\") %></a><BR>
<%rsmenu.movenext
loop%>
</TD></TR>
</Table>

<%
rsbil.movenext
loop
%>


<%
RS.Close
RSmenu.close
RSbil.close
MyConn.Close
Set RS = Nothing
Set RSmenu = Nothing
Set RSbil = Nothing
Set MyConn = Nothing
%>
</body>
</html>