this is the code after the submit
If Request.Form("rename") = "Rename item" Then if Request.Form("hcat") <> "" then if Request.Form("hoofdcategorie") <> "" then sql ="UPDATE Hoofdcategorieen SET hoofdcat_name = '" &Request.Form("hcat")& "' WHERE (hoofdcat_name = '"&Request.Form("hoofdcategorie")&"')" Response.Write(Sql) end if conn2.Execute(sql)end if
and this is my form
<form name='form' method='post' action='change_menu.asp'> <tr> <td> <select name="hoofdcategorie" onchange="changeHoofdcat()"> <option value=''>--- Select a category --- <% 'Recordset set rs2 = Server.CreateObject("ADODB.recordset") rs2.Open "SELECT * FROM Hoofdcategorieen WHERE hoofdcat_id > 1 ORDER BY hoofdcat_name ASC", conn2 'Fill variables with values Do until rs2.EOF if Request("HoofdCat") = rs2.fields("hoofdcat_name") then Response.Write("<OPTION SELECTED value='" & rs2.fields("hoofdcat_name") & "'>" & rs2.fields("hoofdcat_name") & "</option>") else Response.Write("<OPTION value='" & rs2.fields("hoofdcat_name") & "'>" & rs2.fields("hoofdcat_name") & "</option>") end if rs2.movenext Loop rs2.close %> </select> </td> <% if Request("HoofdCat") <> "" then 'Recordset set rs2 = Server.CreateObject("ADODB.recordset") rs2.Open "SELECT c.*, h.hoofdcat_id FROM hoofdcategorieen h, categorieen c WHERE h.hoofdcat_name='"&Request("HoofdCat")&"' AND h.hoofdcat_id= c.hoofdcat_id ORDER BY c.cat_name ASC", conn2,1,1 'Fill variables with values Hoofdcat = Request("HoofdCat") if rs2.RecordCount = 0 then Response.Write("<td><INPUT TYPE=""text"" NAME=""hcat"" SIZE=""20"" MAXLENGTH=""30""></td></tr>") else if request("Cat") = "" then Response.Write("<td><INPUT TYPE=""text"" NAME=""hcat"" SIZE=""20"" MAXLENGTH=""30""></td></tr>") end if Response.Write("</tr><tr><td><select name=""hoofdcategorie"" onchange=""changeCat()""><option value=''>--- Select a category ---") Do until rs2.EOF if request("Cat") = rs2.fields("cat_name") then Response.Write("<OPTION SELECTED value='" & rs2.fields("cat_name") & "'>" & rs2.fields("cat_name") & "</option>") else Response.Write("<OPTION value='" & rs2.fields("cat_name") & "'>" & rs2.fields("cat_name") & "</option>") end if rs2.movenext Loop rs2.close Response.Write("</select></td>") end if end if %><% if Request("Cat") <> "" then 'Recordset set rs2 = Server.CreateObject("ADODB.recordset") rs2.Open "SELECT s.*, c.cat_id FROM categorieen c, subcategorieen s WHERE c.cat_name='"&Request("Cat")&"' AND c.cat_id= s.cat_id ORDER BY s.subcat_name ASC", conn2,1,1 'Fill variables with values if rs2.RecordCount = 0 then Response.Write("<td><INPUT TYPE=""text"" NAME=""categorie"" SIZE=""20"" MAXLENGTH=""30""></td></tr>") else if request("SubCat") = "" then Response.Write("<td><INPUT TYPE=""text"" NAME=""categorie"" SIZE=""20"" MAXLENGTH=""30""></td></tr>") end if Response.Write("</tr><tr><td><select name=""subcategorie"" onchange=""changeSubCat()""><option value=''>--- Select a category ---") Do until rs2.EOF if request("SubCat") = rs2.fields("subcat_name") then Response.Write("<OPTION SELECTED value='" & rs2.fields("subcat_name") & "'>" & rs2.fields("subcat_name") & "</option>") else Response.Write("<OPTION value='" & rs2.fields("subcat_name") & "'>" & rs2.fields("subcat_name") & "</option>") end if rs2.movenext Loop rs2.close Response.Write("</select></td>") if request("SubCat") <> "" then Response.Write("<td><INPUT TYPE=""text"" NAME=""scat"" SIZE=""20"" MAXLENGTH=""30""></td>") end ifend ifend if%>