Flytte og gemme min dropdown form

Hejsa igen igen

Nu har jeg forsøgt hele dagen og kan bare ikke hitte ud af det. Jeg har en velfungerende dropdown boks i en form, jeg nu vil flytte ind i en eksisterende form.

Der sker to ting ved det;
1) Den viser ikke dropdown indholdet
2) Den sletter alt efterfølgende (altså den viser ikke længere de følgende felter i formen)

Det jeg forsøger at flytte er fra linie 17-40 (jeg flytter det hen, hvor jeg har skrevet XXXXXXXXXX i nedenviste kode:

updateRS("MenuNavn") = request.form("Menu")

Jeg vil også gemme det valgte i formen ind i tblPages tabellen. Det forsøger jeg at gøre med :
updateSQL = "SELECT pagename, pagedata, overskrift, underoverskrift, beskrivelse, noegleord, active, directlink, MenuNavn from tblPages where ID = " & ID & ";"

på linie 53 altså med Menunavn og så på linie 81:
updateRS("MenuNavn") = request.form("Menu")

Hele sidens kode er:

<!-- #INCLUDE FILE="../common/checksession.asp" -->
<%
    ID = request("ID")
    if not isNumeric(id) or id = "" then
        response.redirect("sidedefault.asp?not_number")
    end if
%>

<!-- #INCLUDE FILE="../common/dbconn1.asp" -->
<!-- #INCLUDE FILE="../common/headerAdm.asp" -->
<!-- #INCLUDE FILE="../common/admin_nav.asp" --> 

<!--- Type Content Below --->

<form action="editpage.asp?ID=<%=ID%>" method="post" name="menu">
    <select name="menu" size="1" onChange="document.menu.submit()">
<%
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
Do While Not menuRS.EOF
    if request.Form("menu") <> "" then
        menu = request.Form("menu")
    else
        menu = tblRS("MenuNavn")
    end if
    if menu = menuRS("MenuNavn") then %>
<option value="<%=menuRS("MenuNavn")%>" selected><%=MenuRS("MenuNavn")%></option>
<%    else %>
<option value="<%=menuRS("MenuNavn")%>"><%=MenuRS("MenuNavn")%></option>
<%    end if
    MenuRS.MoveNext
loop
%>
</select>

</form>

<%
'==========SETUP IMAGES LIST===========
    Set myFso = Server.CreateObject("Scripting.FileSystemObject")
    Set Myfolder = Myfso.GetFolder(imageuploadpath)

'*****IF POSTBACK THEN UPDATE********
if request.form("postback") = 1 then

    set updateRS = Server.CreateObject("ADODB.RecordSet")
    updateSQL = "SELECT pagename, pagedata, overskrift, underoverskrift, beskrivelse, noegleord, active, directlink, MenuNavn from tblPages where ID = " & ID & ";"
    updateRS.Open updateSQL, whtConn, 1,3
        recordcount = updateRS.recordcount
        if recordcount <> 1 then
            updateRS.Close
            Set updateRS = Nothing
            whtConn.Close
            Set whtConn = Nothing
            response.redirect("sidedefault.asp?norecord")
        end if
    updateRS("pagename") = Presubmit2(request.form("pagename"))
    pagedata = Presubmit(request.form("pagedata"))

    insertimage = request.form("insertimage")
    if insertimage <> "" then
        imagelink = "<img src='" & imagewebpath & insertimage & "'>"
        'response.write imagelink
        pagedata = replace(pagedata,"imagehere",imagelink)
    end if

    updateRS("pagedata") = pagedata
    updateRS("directlink") = Presubmit2(request.form("directlink"))
    updateRS("active") = request.form("active")

    updateRS("overskrift") = request.form("overskrift")
    updateRS("underoverskrift") = request.form("underoverskrift")
    updateRS("beskrivelse") = request.form("beskrivelse")
    updateRS("noegleord") = request.form("noegleord")
    updateRS("MenuNavn") = request.form("Menu")

    updateRS.update
    updateRS.Close
    set updateRS = Nothing
    message = "<p><font color='#FF0000'>Opdatering successfuld</font></p>"
end if

Set dataRS = Server.CreateObject("ADODB.RecordSet")
ID = request("ID")
whtSQL = "Select ID, pagedata, pagename, overskrift, underoverskrift, beskrivelse, noegleord, active, directlink FROM tblPages where ID = " & ID & ";"
'Response.Write whtSQL
dataRS.Open whtSQL, whtConn, 1
        recordcount = dataRS.recordcount
        if recordcount <> 1 then
            dataRS.Close
            Set dataRS = Nothing
            whtConn.Close
            Set whtConn = Nothing
            response.redirect("sidedefault.asp?norecord")
        end if
pagename = dataRS("pagename")
ID = dataRS("ID")
pagedata = dataRS("pagedata")
directlink = dataRS("directlink")

overskrift = dataRS("overskrift")
underoverskrift = dataRS("underoverskrift")
beskrivelse = dataRS("beskrivelse")
noegleord = dataRS("noegleord")

active = dataRS("active")
    if active = 1 then
        activeform = "<input type='checkbox' name='active' value='1' checked class=""cssborder"">"
    else
        activeform =  "<input type='checkbox' name='active' value='1' class=""cssborder"">"
    end if

'close connections,etc..
dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>
<%=message%>
<br>
<form action="editpage.asp?ID=<%=ID%>" method="post" name="frmXinhaTest" language="javascript">
<table class="smallbold">
    <tr>
        <td>Menu navn </td>
        <td>
XXXXXXXXXX
        </td>
    </tr>

    <tr>
        <td>Side titel </td>
        <td> <input type="text" name="pagename" value="<%=pagename%>" class="cssborder"></td>
    </tr>
        <td>Side ID </td>
        <td> <%=ID%></td>
    </tr>
    <tr>
        <td nowrap>Side direkte link </td>
        <td><input type="text" name="directlink" value="<%=directlink%>" size="55" class="cssborder"></td>
    </tr>
    <tr>
        <td nowrap>Overskrift </td>
        <td><input type="text" name="overskrift" value="<%=overskrift%>" size="55" class="cssborder"></td>
    </tr>
<!--
    <tr>
        <td nowrap>Underoverskrift </td>
        <td><input type="text" name="underoverskrift" value="<%=underoverskrift%>" size="55" class="cssborder"></td>
    </tr>
    <tr>
        <td nowrap valign="top">Beskrivelse - kort </td>
        <td><textarea cols="57" rows="3"  id="beskrivelse"  name="beskrivelse"><%=beskrivelse%></textarea></td>
    </tr>
-->
    <tr>
        <td nowrap valign="top">Nøgleord - max 15 ord <br>adskilt med komma </td>
        <td><textarea cols="57" rows="2"  id="noegleord"  name="noegleord"><%=noegleord%></textarea></td>
    </tr>
    <tr>
        <td>Aktiv </td>
        <td><%=activeform%></td>
    </tr>
</table>
<textarea cols="75" rows="25"  id="newbiearea1"  name="pagedata"><%=pagedata%></textarea>

<p class="smalltext">For at indsætte et billede, skrive <strong>imagehere</strong> på din side, hvor du vil have billedet skal blive vist.
<br>Vælg så det billede fra drop ned boksen herunder og klik på Opdater knappen.</p>
<select name="insertimage" size="1" class="cssborder">
<option selected></option>
<%
    filecount = 0
    For Each myFile in MyFolder.Files
    filename = myfile.name
        Response.Write "<option>" & filename & "</option>"
    filecount = filecount + 1
Next
Set MyFolder = Nothing
Set myFSO = Nothing
%>
</select>

<input type="hidden" name="postback" value="1">
<input type="hidden" name="id" value="<%=id%>">
<input type="submit" name="Update" value="Opdater" class="cssborder">
</form>

<!-- #INCLUDE FILE="../common/footerAdm.asp" -->