<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表單數(shù)據(jù)
FaRenCode=request("FaRenCode")
ShuoZaiQv=request("ShuoZaiQv")
Add=request("Add")
YouBian=request("YouBian")
LianXiRen=request("LianXiRen")
LianXiTel=request("LianXiTel")
Email=request("Email")
Fax=request("Fax")
comType=request("comType")
ZhuCheType=request("ZhuCheType")
ComPro=request("ComPro")
if comType<>"1" then
ZhuCheType=""
ComPro=""
end if
%>
<%
'第二頁主持單位情況信息寫入數(shù)據(jù)庫
ProjectCode=session("ProjectCode")

StrSQL="update XT_TD_Project set 法人代碼='"&FaRenCode&"',所在區(qū)='"&ShuoZaiQv&"',通訊地址='"&add&"',郵編='"&YouBian&"',聯(lián)系人='"&LianXiRen&"',聯(lián)系電話='"&LianXiTel&"',電子郵件='"&Email&"',傳真='"&Fax&"',單位類型='"&ComType&"',注冊類型='"&ZhuCheType&"',企業(yè)特性='"&ComPro&"'  where 項(xiàng)目編碼='"&ProjectCode&"'"
conn.Execute StrSQL

'協(xié)作單位信息寫入數(shù)據(jù)庫
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select * from XT_TD_ProjectCompany where 項(xiàng)目編碼='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
rst.Open StrSQL,strconn
con=rst.RecordCount
redim XieLianXiRen(con)
redim XieLianXiTel(con)
redim XieEmail(con)
redim XieFax(con)
redim XieComType(con)
for i=0 to con-1
    a="XieLianXiRen"+Cstr(i+1)
    XieLianXiRen(i)=request(a)
    b="XieLianXiTel"+Cstr(i+1)
    XieLianXiTel(i)=request(b)
    c="XieEmail"+Cstr(i+1)
    XieEmail(i)=request(c)
    d="XieFax"+Cstr(i+1)
    XieFax(i)=request(d)
    e="XieComType"+Cstr(i+1)
    XieComType(i)=request(e)
    strsql="update XT_TD_ProjectCompany set 聯(lián)系人='"&XieLianXiRen(i)&"',聯(lián)系電話='"&XieLianXiTel(i)&"',電子郵件='"&XieEmail(i)&"',傳真='"&XieFax(i)&"',單位類型='"&XieComType(i)&"' where 項(xiàng)目編碼='"&projectCode&"' and 單位序號='"&cstr(i+1)&"'"
	conn.execute strsql
next

Response.Redirect ("Project_edit3.asp")

%>