hvorfor vil det ikke virke

<!--#include file="includes\asp_conn.inc"-->

<%
    idd = Request.Querystring("linkIDD")
    ' response.write(idd)

      strSQL = "SELECT * FROM menuer WHERE menu_navn='"&idd&"' order by nogle"


    set rs = Conn.Execute(strSQL)
%>

<%
    ' OPDATER
   
    if Request.Form("opdater") = "Opdater" then
   
     
      dim var,var1,var2,nogle     
     
      var  = Request.Form("menu")
      var1  = Request.Form("lnavn")
      var2  = Request.Form("link")
      nogle = Request.Form("nogle")
   
      strSQL = "UPDATE menuer SET menu_navn='"&var&"' , link_navn='"&var1&"' , link='"&var2&"' WHERE nogle='"&nogle&"'"
     
      Conn.Execute(strSQL)
    %>
    <script>
    window.close()
    </script>
    <%
   
    end if   
   
    ' SLET
   
    if Request.Form("slet") = "Slet" then
     
     
        nogle = Request.Form("nogle")
             
        strSQL = "DELETE FROM menuer WHERE nogle='"&nogle&"'"
     
        Conn.Execute(strSQL)

    end if
%>

</script>

<html>
<head>
<link rel="stylesheet" type="text/css" href="style/styles.css">
<title></title>

</head>

<body>


<table>   

<tr class="overskrift" bgcolor="#eeeeee">
       
        <td width="168" valign="top" align="left">Menu_navn</td>
        <td width="168" valign="top" align="left">Link_navn</td>
      <td width="168" valign="top" align="left">Link</td>
      <td width="100" valign="top" align="center">Opdater </td>
      <td width="100" valign="top" align="center">Slet </td>

<%      do while not rs.EOF
'
%>

<form method="POST" name="vis_links" action="SQL_vis_punkter.asp">

</tr>

        <tr class="broedtekst" bgcolor="#ffffff">
     

        <input type='hidden' name='nogle' value='<% = rs("nogle") %>'>
       
        <td width="168" valign="top" align="left"><input type='text' name='menu' value='<% = rs("menu_navn") %>' </td>
        <td width="168" valign="top" align="left"><input type='text' name='lnavn' value='<% = rs("link_navn") %>' </td>
        <td width="168" valign="top" align="left"><input type='text' name='link' value='<% = rs("link") %>' </a> </td>
       
        <td width="100" valign="top" align="center"><input type='submit' class="button1" name='opdater' value='Opdater' onclick="java script:window.open('menuer/template1.asp?linkIDD=<% = Request.Querystring("linkIDD") %>', 'content')"> </td>
        <td width="100" valign="top" align="center"><input type='submit' class="button1" name='slet' value='Slet'> </td>

</form>

    <%  rs.MoveNext
          Loop
    ' Luk databaseforbindelse
    Conn.Close
    Set Conn = Nothing
%>
</table>



</body>
</html>