<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表單數(shù)據(jù)
XingS=request("XingS")
ZhongYS=request("ZhongYS")
ZhiZBL=request("ZhiZBL")
ZhiZJE=request("ZhiZJE")
HeZZZ=request("HeZZZ")
ComCName=request("ComCName")
ComEName=request("ComEName")
Add=request("Add")
LianXRC=request("LianXRC")
LianXRE=request("LianXRE")
Tel=request("Tel")
Fax=request("Fax")
Email=request("Email")
BeiJ=request("BeiJ")
ShuoM=request("ShuoM")
%>
<%
'第七頁(yè)(項(xiàng)目類型為(四)(國(guó)際科技環(huán)境建設(shè)))填寫的信息寫入數(shù)據(jù)庫(kù)
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=請(qǐng)先注冊(cè)封面信息!")
else
	'判斷是否是修改狀態(tài)
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select 項(xiàng)目編碼 from XT_VD_ProjectSupplyNew4 where 項(xiàng)目編碼='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open StrSQL,strconn
if not rst.EOF then '修改狀態(tài)
StrSQL="update XT_TD_ProjectSupplyNew4 set 項(xiàng)目形式='"& XingS &"',總預(yù)算='"& ZhongYS &"',申請(qǐng)資助比例='"& ZhiZBL &"',申請(qǐng)資助金額='"& ZhiZJE &"',基金核準(zhǔn)資助額='"& HeZZZ &"',國(guó)外單位中文名稱='"& ComCName &"',國(guó)外單位英文名稱='"&ComEName&"',國(guó)外單位英文地址='"&Add&"',聯(lián)系人中文='"&LianXRC&"',聯(lián)系人英文='"&LianXRE&"',電話='"&Tel&"',傳真='"&Fax&"',Email='"&Email&"',國(guó)外單位背景='"&BeiJ&"',項(xiàng)目說(shuō)明='"&ShuoM&"' where 項(xiàng)目編碼='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit7_4_4.asp?projectInfo=項(xiàng)目專項(xiàng)補(bǔ)充計(jì)劃修改成功!")
else '注冊(cè)
StrSQL="insert into XT_TD_ProjectSupplyNew4 (項(xiàng)目編碼,項(xiàng)目形式,總預(yù)算,申請(qǐng)資助比例,申請(qǐng)資助金額,基金核準(zhǔn)資助額,國(guó)外單位中文名稱,國(guó)外單位英文名稱,國(guó)外單位英文地址,聯(lián)系人中文,聯(lián)系人英文,電話,傳真,Email,國(guó)外單位背景,項(xiàng)目說(shuō)明) values ('"&ProjectCode&"','"&XingS&"','"&ZhongYS&"','"&ZhiZBL&"','"&ZhiZJE&"','"& HeZZZ &"','"&ComEName&"','"&ComEName&"','"&Add&"','"&LianXRC&"','"&LianXRE&"','"&Tel&"','"&Fax&"','"&Email&"','"&BeiJ&"','"&ShuoM&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit8.asp?projectInfo=項(xiàng)目專項(xiàng)補(bǔ)充計(jì)劃注冊(cè)成功!")
end if

end if
%>