forespørgsel til dropdown fra to tabeller

Fortsættelse på min dropdown funktion fra: http://www.eksperten.dk/spm/695636

Jeg vil nu gerne have, at står der noget i MenuNavn i tblPages tabellen, skal den skrive den i dropdown menuen (som kommer fra Menu tabellen) som selected

Når jeg bruger nedenviste kode sker der følgende:

Når der står noget i MenuNavn i tblPages, viser den IKKE denne som selected, når jeg går ind på edit siden (som jeg jo gerne vil have den skal). Ændrer jeg navn i dropdown boksen reloader den korrekt og beholder korrekt den ændrede navn.

Når der ikke står noget i MenuNavn i tblPages, viser den den første felt i dropdown boksen. Ændrer jeg navn i dropdown boksen reloader den IKKE korrekt men går tilbage til første felt igen efter reload

Kan nogen hjælpe mig med at få til at virke?

Koden er:

<%
menu = request.Form("menu")
%>
<form action="editpage.asp?ID=<%=ID%>" method="post" name="Menu">
    <select name="Menu" size="1" onChange="document.Menu.submit()">

      <!-- <option value="vælg">Vælg menu</option> -->
    <%
        Set menuRS = Server.CreateObject("ADODB.RecordSet")
        menuSQL = "Select MenuNavn FROM Menu"
        'Response.Write menuSQL
        menuRS.Open menuSQL, whtConn, 1

                set tblRS = Server.CreateObject("ADODB.RecordSet")

                tblSQL = "Select MenuNavn FROM tblPages where ID = " & ID & ";"
                tblRS.Open tblSQL, whtConn, 1

      %>
  <%
        if tblRS("MenuNavn") <> "" then
            Do While Not menuRS.EOF
                if menu = menuRS("MenuNavn") then
              valg = " selected"
          else
            valg = ""
          end if
    %>
            response.write "<option value="<%=menuRS("MenuNavn")%>" <%=valg%>><%=MenuRS("MenuNavn")%></option>"
      <%
        MenuRS.MoveNext
        Loop
        MenuRS.Close
      %>

    <%
        else
            Do While Not menuRS.EOF
                if menu = menuRS("MenuNavn") then
              valg = " selected"
          else
            valg = ""
          end if
    %>
            response.write "<option value="<%=tblRS("MenuNavn")%>"<%=valg%>><%=menuRS("MenuNavn")%></option>"   
      <%
        MenuRS.MoveNext
        Loop
        MenuRS.Close
      %>   
    <%   
        end if
  %>

     

  </select>

<%
                Response.write "Menunavn: "
                Response.write tblRS("MenuNavn")
            tblRS.Close
%>

</form>