Editing: save_thesis_progress_student-1.asp.bak

<!--#include file="inc_cache_control.asp"--> <!--#include file="inc_access_control.asp"--> <!--#include file="chk_login.asp"--> <% '***************************************************************** session("tb_name")="student" %> <!--#include file="chk_permission.asp"--> <% '***************************************************************** ' if session("tb_edit") <> 1 then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ if session("tb_edit")=2 or session("id_stu1") = id_stu then %> <form name="form1" action="report_thesis_progress_student_form.asp" method="post"> <% id_progress_report=request.form("id_progress_report") id_thesis=request.form("id") id_stu=request.form("id_stu") id_activity=request.form("id_activity") Response.write id_activity&"=id_activity" 'activity_result=request.form("activity_result") 'year_end=request.form("year_end") 'year_begin=request.form("year_begin") 'month_begin=request.form("month_begin") 'month_end=Request.form("month_end") id_activity_r=request.form("id_activity_r") 'id_result=request.form("id_result") id_status="0" activity_name=request.form("activity_name") 'expect_result=request.form("expect_result") 'activity_problem=request.form("activity_problem") 'date_save=Date 'year_begin2=right(year_begin,2) 'year_end2=Right(year_end,2) 'date_begin=year_begin2+month_begin 'date_end=year_end2+month_end id_staff=session("id_staff1") 'Response.write date_save 'datebegincheck=request.form("datebegincheck") 'dateendcheck=request.form("dateendcheck") 'Response.write "<br>aaa"&datebegincheck&"bbb"&dateendcheck sql_c="select * from thesis_plan_activity where id_activity='"&id_activity&"'" Set ors_c=server.createobject("adodb.recordset") ors_c.open sql_c,conn,1,3 Response.write sql_c If not ors_c.eof then 'sqldata="update thesis_plan_activity set activity_result='"&activity_result&"', date_report='"&_ 'date_save&"', activity_problem='"&activity_problem&"', id_result='"&id_result&"', id_activity_r='"&id_activity_r&"' where id_activity='"&id_activity&"'" sqldata="update thesis_plan_activity set activity_name='"&activity_name&"' where id_activity='"&id_activity&"'" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata Else Response.write "555-" Response.write id_activity End If 'response.write "<meta http-equiv='refresh' content ='0;url=report_thesis_progress_student_form.asp'>" 'end if 'set conn = nothing %> <input type="hidden" name="id" value=<%=id_thesis%>> <input type="hidden" name="id_activity" value=<%=id_activity_r%>> <input type="hidden" name="id_table" value=<%'=id_table%>> <script type="text/javascript"> document.form1.submit(); </script> </FORM> <% else '���Է� response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��" response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է� end if '���Է� %>