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

SỬA THÔNG TIN

<% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblcat where idcat = '"&request.QueryString("id")&"'",conn %> <% openconn set rs2= server.CreateObject("adodb.recordset") rs2.open "select * from tblmodule where idparrent = 0 ", conn %> Danh mục cha <% do while not rs2.eof %> <% openconn set rs3= server.CreateObject("adodb.recordset") rs3.open "select * from tblmodule where idparrent='"&rs2("idmodule")&"' ", conn do while not rs3.eof %> >  - - <%=rs3("name")%> <% rs3.movenext loop rs3.close %> <% rs2.movenext loop rs2.close %> Tiêu đề bài viết " style="width:550"> <% If pathanh <>"" Then %> <% Else %>" width="150" height="130" border=0 onerror="this.style.display='none'" id="Anh" name="Anh"> <% End If %> <%if rs1("image") <> "" or pathanh <>"" then%> <%end if%>   Ảnh mới :    Tải ảnh.. "> Trích dẫn bài viết <%=rs1("quotation")%> Nội dung bài viết <% oFCKeditor.value = rs1("Content") oFCKeditor.Create "MsgContent" %>