<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表單數據
NeiRong=request("NeiRong")
ChengGuo=request("ChengGuo")
JinDu=request("JinDu")
JSLY=request("JSLY")
JieDuan=request("JieDuan")
YouShi1=request("YouShi1")
YouShi2=request("YouShi2")
YouShi3=request("YouShi3")
YouShi4=request("YouShi4")
ShenBaoZhuanLi=request("ShenBaoZhuanLi")
ShenBaoFaMingZL=request("ShenBaoFaMingZL")
ZhuanLi=request("ZhuanLi")
FaMingZL=request("FaMingZL")
LaiYuan1=request("LaiYuan1")
LaiYuan2=request("LaiYuan2")
%>
<%
'第三頁項目基本情況信息寫入數據庫
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=請先注冊封面信息!")
else
	'判斷是否是修改狀態
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select 項目編碼 from XT_VD_ProjectBasic where 項目編碼='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open StrSQL,strconn
if not rst.EOF then '修改狀態
StrSQL="update XT_TD_ProjectBasic set 主要內容='"&NeiRong&"',預期成果='"&ChengGuo&"',進度安排='"&JinDu&"',技術領域='"&JSLY&"',所處階段='"&JieDuan&"',市場前景好='"&YouShi1&"',技術水平高='"&YouShi2&"',經濟效益顯著='"&YouShi3&"',社會效益顯著='"&YouShi4&"',申報專利數量='"&ShenBaoZhuanLi&"',申報發明專利數量='"&ShenBaoFaMingZL&"',專利數量='"&ZhuanLi&"',發明專利數量='"&FaMingZL&"',技術來源1='"&LaiYuan1&"',技術來源2='"&LaiYuan2&"'  where 項目編碼='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit3.asp?projectInfo=項目基本情況修改成功!")
else '注冊
StrSQL="insert into XT_TD_ProjectBasic (項目編碼,主要內容,預期成果,進度安排,技術領域,所處階段,市場前景好,技術水平高,經濟效益顯著,社會效益顯著,申報專利數量,申報發明專利數量,專利數量,發明專利數量,技術來源1,技術來源2) values ('"&ProjectCode&"','"&NeiRong&"','"&ChengGuo&"','"&JinDu&"','"&JSLY&"','"&JieDuan&"','"&YouShi1&"','"&YouShi2&"','"&YouShi3&"','"&YouShi4&"','"&ShenBaoZhuanLi&"','"&ShenBaoFaMingZL&"','"&ZhuanLi&"','"&FaMingZL&"','"&LaiYuan1&"','"&LaiYuan2&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit4.asp?projectInfo=項目基本情況注冊成功!")
end if

end if
%>