Editing: save_thesis_progress_student.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 = "thesis_progress_student.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") 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 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&"'" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 'response.write sqldata Else End if response.write "<meta http-equiv='refresh' content ='0;url=thesis_progress_student.asp'>" 'end if 'set conn = nothing %> </FORM> <% else '���Է� response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��" response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է� end if '���Է� %>