<%if session("username")="" then%> <%end if%> <% if request("action")="submit" then idmodule=replace(request("idmodule"),"'","''") txtNTitle=replace(request("txtNTitle"),"'","''") pathanh=replace(request("pathanh"),"'","''") quotation=replace(request("quotation"),"'","''") MsgContent=replace(request("MsgContent"),"'","''") ngaycapnhat=replace(request("ngaycapnhat"),"'","''") openconn set rs=server.CreateObject("adodb.recordset") sql="insert into tblcat(idmodule,Title,quotation,Content,Image,ngaycapnhat) values('"&idmodule&"',N'"&txtNTitle&"',N'""ation&"',N'"&MsgContent&"','"&pathanh&"','"&ngaycapnhat&"')" conn.execute(sql) response.Redirect("?hbxb=2&Quan-ly-tin-tuc.html") %> <%end if%>

THÊM MỚI TIN TỨC

<% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblmodule where idparrent = 0",conn %> Danh mục cha : <% do while not rs1.eof %> <% 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 %> Tiêu đề bài viết Ảnh hiển thị    Tải ảnh.. Trích dẫn bài viết Nội dung bài viết <% oFCKeditor.Create "MsgContent" %> Ngày cập nhật