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