Editing: research/save_mea.asp

<!--#INCLUDE FILE="cksession.asp"--> <!--#INCLUDE FILE="Connectdb.asp"--> <form name="form1" Action = "detail_mea.asp" method="post"> <% '�֧��������ͧ����Ѵ����ҡ���ҧ measurement_ms set ors_mnew=server.createobject("adodb.recordset") sql_mnew="select * from measurement_ms" ors_mnew.open sql_mnew,Conn,1,3 ors_mnew.movelast id_mea_old=ors_mnew("meas_id") mea_id_new=id_mea_old+1 response.write "<br>"&mea_id_new&"<br>" 'search_id=session("searchid") meas_name=request.form("meas_name") meas_ref=request.form("meas_ref") meas_lib=request.form("meas_lib") meas_calnum = request.form("meas_calnum") meas_key = request.form("meas_key") meas_his1 = request.form("meas_his1") meas_his2 = request.form("meas_his2") meas_obj1 = request.form("meas_obj1") meas_ans2 = request.form("meas_ans2") meas_diff=request.form("meas_diff") meas_expe=request.form("meas_expe") meas_pwr = request.form("meas_pwr") meas_vali = request.form("meas_vali") meas_reli = request.form("meas_reli") meas_sample = request.form("meas_sample") meas_time = request.form("meas_time") meas_obj2 = request.form("meas_obj2") meas_formsample=request.form("meas_formsample") '======================================================================= if session("login")="" then %> <SCRIPT LANGUAGE="JavaScript"> <!-- alert("session is expire"); //--> </SCRIPT><% else sql_data="select * from measurement_ms where meas_id="&mea_id_new&" " set ors_data=server.createobject("adodb.recordset") ors_data.open sql_data,conn,1,3 if not ors_data.eof then%> <SCRIPT LANGUAGE="JavaScript"> <!-- alert("�ѹ�֡��������ͧ����Ѵ���"); //--> </SCRIPT><% else sqldata="insert into measurement_ms (meas_id,meas_name,meas_ref,meas_lib,meas_callnum,meas_key, meas_his1,meas_his2,meas_obj1,meas_ans2,meas_ans1,meas_diff,meas_expe,meas_pwr,meas_vali,meas_reli,meas_sample,meas_time,meas_obj2,meas_formsample) values ("&mea_id_new&",'"&meas_name&"',"&meas_ref&",'"&smeas_lib&"', '"&meas_calnum&"','"&meas_key&"',"&meas_his1&",'"&meas_his2&"',"&meas_obj1&","&meas_ans2&",'"&meas_ans1&"','"&meas_diff&"','"&meas_expe&"','"&meas_pwr&"','"&meas_vali&"','"&meas_reli&"','"&meas_sample&"','"&meas_time&"','"&meas_obj2&"','"&meas_formsample&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata end if end if set conn = nothing 'ors_data.close %> <meta http-equiv="refresh" content ="3;url=detail_mea.asp?meas_id=<%=mea_id_new%>"> </FORM>