<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<%

dim typename
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile

articleid=request("id")
title=htmlencode2(request.form("txttitle"))
typeid=request.form("typeid")

if request.form("checkbox")="on" then
content=htmlencode(request.form("txtcontent"))
else
content=htmlencode2(request.form("txtcontent"))
end if

set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&articleid
rs.open sql,conn,3,3
rs("title")=title
rs("content")=content
rs("dateandtime")=date()
rs("typeid")=typeid
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

response.redirect "manage.asp"
%>

