<%if session("username")="" then response.Redirect("default.asp") end if%> <% if request("action")="submit" then id=replace(request("id"),"'","''") idparrent=replace(request("idparrent"),"'","''") title=replace(request("title"),"'","''") posotion=replace(request("posotion"),"'","''") openconn set rs=server.CreateObject("adodb.recordset") sql=" update tblmodule set idparrent='"&idparrent&"',name=N'"&title&"',positions='"&posotion&"' where idmodule='"&id&"'" conn.execute(sql) response.Redirect("module_list.asp") %> <%end if%> <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath="/NinhBinh/admin/" %>

SỬA MODULE

<% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblmodule where idmodule = '"&request.QueryString("id")&"'",conn %> <% openconn set rs3= server.CreateObject("adodb.recordset") rs3.open "select * from tblmodule where idparrent = 0 ", conn %> THÔNG TIN MODULE Danh mục cha -- Chọn danh mục cha -- <% do while not rs3.eof %> ><%=rs3("name")%> <% openconn set rs4= server.CreateObject("adodb.recordset") rs4.open "select * from tblmodule where idparrent='"&rs3("idmodule")&"' ", conn do while not rs4.eof %>   - - <%=rs4("name")%> <% rs4.movenext loop rs4.close %> <% rs3.movenext loop rs3.close %> Tên module " style="font-family: Verdana; font-size: 8pt; width:200"> Thứ tự ">