<!-- #include file="conn.asp" -->
<!--#include file="check2.asp"-->
<%
dim menuid
dim i,strid,sql
dcid=request("dcid")
dctitle=trim(request.form("dctitle"))

on error resume next
conn.BeginTrans

sql="update e_diaocha1 set dctitle='"&dctitle&"' where id="&dcid
conn.execute(sql)

for i=1 to 8
	id=trim(request.form("id"&i))
	contect=trim(request.form("contect"&i))
	sql2="update e_diaocha2 set contect='"&contect&"' where id="&id
	conn.execute(sql2)
next

if conn.Errors.Count=0 then  
	conn.CommitTrans
else 
	conn.RollbackTrans
	call alert("保存数据时出错，请重新尝试！")
end if

conn.close

response.write "<script language=JavaScript>" & "alert('恭喜您，您成功修改“最新调查”。');" & "window.location.href='diaocha.asp'" & "</script>"
response.end

%>


