hvad er der galt - loop uden do ?

Du ksla have While Not rs.EOF op efter Do:

Do While Not rs.EOF
..
..
..
Loop

det hjap IKKE
..........
  <%
' SQL forespørgsel
strSQL = "Select * from menupunkter order by menupunkter"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%><span style="background-color: #FFFFFF"><font color="#000080"> </font></span>





  <tr>
  <%
  if rs("menupunkter") <> menupunkt then
  menupunkt = rs("menupunkt")
  %>
    <td align="left" bgcolor="#CCFFFF"><font color="#ff0000" size="2"><%response.Write rs("menupunkter")%></b></font>&nbsp;</td>
<% else %>
  <td align="center" bgcolor="#FFCCFF"><font color="#ff0000" size="2"><%response.Write rs("undermenupunkter")%>&nbsp;</td>
    <td align="center" bgcolor="#FFFFFF"><a href="menudel.asp?Id=<%= Rs("Id")%>">
    <font color="#000080"><span style="background-color: #FFFFFF">Slet</span></font></a></td>
  </tr>
  </center>
</div>

<%
' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
%>

der mangler også et End if til denne if sætning:

if rs("menupunkter") <> menupunkt then

der er en else i koden og end if skal være enfter else delen.
<% else %>

virker STADIG ikke (forhøjer lige til 60 point da der skal læses lidt MEGET kode her)
........
  <%
' SQL forespørgsel
strSQL = "Select * from menupunkter order by menupunkter"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%><span style="background-color: #FFFFFF"><font color="#000080"> </font></span>





  <tr>
  <%
  if rs("menupunkter") <> menupunkt then
  menupunkt = rs("menupunkt")
  %>
    <td align="left" bgcolor="#CCFFFF"><font color="#ff0000" size="2"><%response.Write rs("menupunkter")%></b></font>&nbsp;</td>
<% end if %>
  <td align="center" bgcolor="#FFCCFF"><font color="#ff0000" size="2"><%response.Write rs("undermenupunkter")%>&nbsp;</td>
    <td align="center" bgcolor="#FFFFFF"><a href="menudel.asp?Id=<%= Rs("Id")%>">
    <font color="#000080"><span style="background-color: #FFFFFF">Slet</span></font></a></td>
  </tr>
  </center>
</div>

<%
' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
%>

ok jeg tror jeg fandt den :-)
jeg skulle ikke lave Do While not EOF

men bare Do

tak for indsatsen