Hvor skal loop være?

Jeg har denne kode, som skal udskrive et hvis der ikke er noget i db, og noget andet hvis der er noget i db, men jeg får en fejl der siger: Loop

Her er koderne, hvad er fejlden??


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
sql = "SELECT * FROM mad WHERE brugerId = " & Session("id")
Set objRec = Conn.Execute(sql)
if objRec.EOF or objRec.BOF then 'hvis notesbogen er tom
%>
                              <table width="170" border="0" cellspacing="0" cellpadding="0" height="1">
                                <tr>
                                  <td width="166"></td>
                                </tr>
                              </table>
                              <% Else
                              Do until objRec.EOF
                              %>
                              <table width="170" border="0" cellspacing="0" cellpadding="0">
                   
                        <table width="161" border="0" cellspacing="0" cellpadding="0" class="sidemenu_bg">
                        <% while not objRec.eof %>
                          <tr>
                            <td><%=objRec("pris")%></td>
                          </tr>
                          <%
                         
objRec.movenext
wend

objRec.Close
Set objRec = Nothing
Conn.Close
Set Conn = Nothing
%>