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

THÊM MỚI MODULE

<% openconn set rs1= server.CreateObject("adodb.recordset") rs1.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 rs1.eof %> <%=rs1("name")%> <% openconn set rs2= server.CreateObject("adodb.recordset") rs2.open "select * from tblmodule where idparrent='"&rs1("idmodule")&"' ", conn do while not rs2.eof %>   - - <%=rs2("name")%> -- <% rs2.movenext loop rs2.close %> <% rs1.movenext loop rs1.close %> Tên module Thứ tự