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

SỬA NĂM

<% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblnam where idnam = '"&request.QueryString("id")&"'",conn %> Tên năm " style="font-family: Verdana; font-size: 8pt; width:100"> Thứ tự hiển thị ">