Editing: add_exitexam.asp

<!--#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 = "detail_stu.asp" method="post"> <% 'id_progress_report=request.form("id_exitexam_type") 'sql_round="select * from progress_report_thesis where id_progress_report='"&progress_report&"'" 'Set ors_round=server.createobject("adodb.recordset") 'ors_round.open sql_round,conn,1,3 'Response.write sql_round 'If Not ors_round.eof Then ' year_end=ors_round("year_end") ' month_end=ors_round("month_end") ' year_begin=ors_round("year_begin") ' month_begin=ors_round("month_begin") 'End if id_thesis=request.form("id") id_stu=request.form("id_stu") date_pass=request.form("date_pass") d_pass=left(date_pass,2) m_pass=mid(date_pass,4,2) y_pass=right(date_pass,2) y_pass1=right(date_pass,4) date_pass=y_pass1+m_pass+d_pass id_exitexam_type=request.form("id_exitexam_type") id_status="1" date_save=date Response.write date_save %> <% sql_data="select * from rp_exitexam order by id_report" set ors_data=server.createobject("adodb.recordset") ors_data.open sql_data,conn,1,3 if not ors_data.eof Then ors_data.movelast id_report=ors_data("id_report")+1 Else id_report=1 End if %> <!--<SCRIPT LANGUAGE="JavaScript"> <% 'response.write"alert('"&id_lecturer&"�ѹ�֡���ʫ��');" 'response.write "window.location.href='add_lec_form.asp';" %> </SCRIPT>--> <% ''else sqldata="insert into rp_exitexam(id_report,id_exitexam_type,id_stu,date_pass,date_create,id_status,d_pass,m_pass,y_pass,y_pass1) values("&id_report&",'"&_ id_exitexam_type&"','"&id_stu&"','"&_ date_pass&"', '"&date_save&"', '"&id_status&"','"&d_pass&"','"&m_pass&"','"&y_pass&"','"&y_pass1&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=detail_stu.asp?id_stu="&id_stu&"'>" '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 '���Է� %>