Editing: rp_thesis_progress_stu_sem.asp

<%@ Language=VBScript %> <% 'Option Explicit 'Response.ContentType = "application/vnd.ms-excel" 'Response.AddHeader "Content-Disposition", "attachment; filename=report_progress.xls" '<!--#include file="chk_login.asp"--> ' '<!--#include file="inc_cache_control.asp"--> '<!--#include file="inc_access_control.asp"--> %> <!--#include file="chk_permission.asp"--> <style> #customers { font-family: "Trebuchet MS", Arial, Helvetica, sans-serif; border-collapse: collapse; width: 100%; } #customers td, #customers th { border: 0px solid #ddd; padding: 8px; } #customers th { padding-top: 12px; padding-bottom: 12px; text-align: left; background-color: #4CAF50; color: white; } </style> <meta http-equiv="Content-Type" content="text/html; charset=windows-874"> <link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon"> <table width="150%" border="0"> <tr> <td width="77%" align="left" valign="top"> <table width="200%" border="0" cellspacing="0"> <tr> <td align="left" valign="top"> <% date1=datepart("d",date) month1=month(now()) y=year(now()) y=543+y y=right(y,2) if date1=1 then date1="01" elseif date1=2 then date1="02" elseif date1=3 then date1="03" elseif date1=4 then date1="04" elseif date1=5 then date1="05" elseif date1=6 then date1="06" elseif date1=7 then date1="07" elseif date1=8 then date1="08" elseif date1=9 then date1="09" end if if month1=1 then month1="01" elseif month1=2 then month1="02" elseif month1=3 then month1="03" elseif month1=4 then month1="04" elseif month1=5 then month1="05" elseif month1=6 then month1="06" elseif month1=7 then month1="07" elseif month1=8 then month1="08" elseif month1=9 then month1="09" end if dcheck=y&""&month1&""&date1 '***************************************************************** %> <% id_stug=request("id_sg") %> <br> <table border="0" align="center" cellpadding="0" cellspacing="0" width="100%"> <tr > <td> <% sql_data="select * from student_group where id_stugroup='"&id_stug&"'" set ors_data=server.createobject("adodb.recordset") 'Response.write sql_data ors_data.open sql_data,conn,1,3 if not ors_data.eof then %> </tr> <h2 class="media-heading text-uppercase">��������´��������˹�� �Ҥ���¹��� <% sqlall1="select * from progress_report_thesis where dateend_check<='"&dcheck&"' order by id_progress_report desc" Set orsall1=server.createobject("adodb.recordset") orsall1.open sqlall1,conn,1,3 'Response.write sqlall1 If Not orsall1.eof Then Response.write orsall1("semeter")&"/"&orsall1("year_edu") semeter=orsall1("semeter") year_edu=orsall1("year_edu") End if %></h2> <% id_stugroup=ors_data("id_stugroup") sql_all="select * from student_group where id_stugroup='"&ors_data("id_stugroup")&"' " set ors_all=server.createobject("adodb.recordset") ors_all.open sql_all,Conn,1,3 if not ors_all.eof Then ys_semeter=ors_all("id_begin_semeter") ys_year_edu=ors_all("id_begin_year") 'response.write "" sql_curri="select * from curriculum where id_curriculum='"&ors_all("id_curriculum")&"'" set ors_curri=server.createobject("adodb.recordset") ors_curri.open sql_curri,conn,1,3 if not ors_curri.eof then id_curriculum=ors_all("id_curriculum") response.write ors_curri("curriculum_full")&" " end If id_type_curri=ors_all("id_type_curri") sqlt="select * from type_curriculum where id_type_curri='"&ors_all("id_type_curri")&"'" set orst=server.createobject("adodb.recordset") orst.open sqlt,conn,1,3 if not orst.eof then response.write orst("type_curri_th") end if response.write " ��� "&ors_all("no_stugroup")&"&#160;" id_major=ors_all("id_major") sql_major="select * from major where id_major='"&id_major&"'" set ors_major=server.createobject("adodb.recordset") ors_major.open sql_major,conn,1,3 if not ors_major.eof then response.write ors_major("major_th") end If Response.write " (�ա���֡���á��� "&ors_all("id_begin_year")&")" end if %></p> </td></tr> <%'<tr bgcolor=#e5e5e5><td>�Ԩ������ѡ<td>�Ԩ�������� <td>��<td>��������´ <td>�ѭ������ػ��ä<td>�Ԩ������ѡ<td>�Ԩ�������� sql="select * from student where id_status_edu=1 and id_stugroup='"&id_stugroup&"' order by id_stu" set ors=server.createobject("adodb.recordset") ors.open sql,conn,1,3 if not ors.eof Then ors.movefirst a=1 do while not ors.eof bg1=a mod 2 if bg1=0 then bg="#f5f5f5" else bg="#ffffff" end If %><tr bgcolor=#ffcc66><td width=1%>���<td width=5%>����-ʡ��<td width=7%>���ͻ�ԭ�ҹԾ���<td width=5% >����֡����ѡ<td width=5% >����֡������(�����)<td width=2% >GRD <%=semeter%>/<%=year_edu%> <td width=4% >GRD ����<td width=6% >ʶҹз� Thesis(������������)<td width=8% colspan=2 align=center>QE<td width=8% colspan=4 align=center>ExitExam<td width=8% colspan=3 align=center>SoftSkill<td>������������Ъ���Ԫҡ��<td>��ù��ʹͼŧҹ�Ԫҡ��<td>��õվ����ŧҹ�Ԫҡ��<td width=22% align=center>�ŢͧἹ <%=semeter%>/<%=year_edu%><td align=center width=10% >Ἱ�Ҥ���¹�Ѵ� <tr bgcolor=#ffcc66><td><td><td><td><td><td><td><td><td bgcolor=#dddbd9 align=center>������<td bgcolor=#dddbd9 align=center>�Ը��Է�ҡ���Ԩ��<td bgcolor=#ccc8c4 align=center>��ҹ<td bgcolor=#ccc8c4 align=center>�ѧ<td bgcolor=#ccc8c4 align=center>�ٴ<td bgcolor=#ccc8c4 align=center>��¹<td bgcolor=#c5c2c4 align=center>��ǹ�ؤ��<td bgcolor=#c5c2c4 align=center>�ѧ��<td bgcolor=#c5c2c4 align=center>�Ҫվ<td><td><td><td><% response.write "<tr bgcolor="&bg&"><td align=center valign=top>"&a&"." 'response.write "<td><div align=left>"&ors("id_stu") response.write "<td valign=top><div align=left valign=top>"&ors("name_stu")&" "&ors("sur_stu") '���ͻ�ԭ�ҹԾ��� ���Ҩҡ thesis_plan_activity ��� id_table=11 ��� id_activity_r �����ѹ������з���ش sql_thesis="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=11 and id_status= 0 and id_result=1 order by id_activity_r" Set ors_thesis=server.createobject("adodb.recordset") ors_thesis.open sql_thesis,conn,1,3 If Not ors_thesis.eof Then ors_thesis.movelast id_activity=ors_thesis("id_activity") 'Response.write id_activity sql_thesis1="select thesis_name,id_activity,id_status,date_report,advisor_name1,advisor_name2 from rp_thesis_progress where id_activity='"&ors_thesis("id_activity")&"'" Set ors_thesis1=server.createobject("adodb.recordset") ors_thesis1.open sql_thesis1,conn,1,3 If Not ors_thesis1.eof Then Response.write "<td valign=top>" Response.write ors_thesis1("thesis_name") Response.write "<td valign=top>" Response.write ors_thesis1("advisor_name1") Response.write "<td valign=top>" Response.write ors_thesis1("advisor_name2") End If 'ors_thesis1 Else Response.write "<td><td><td>" End If 'ors_thesis 'GRD ����Ѩ�غѹ Response.write "<td valign=top align=left>" sql_grdn="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=14 and id_progress_report="&orsall1("id_progress_report")&"" Set ors_grdn=server.createobject("adodb.recordset") ors_grdn.open sql_grdn,conn,1,3 If Not ors_grdn.eof Then Response.write "ŧ����¹"'&ors_grdn("id_activity") sql_grd3="select * from rp_grd where id_report='"&ors_grdn("id_activity")&"'" Set ors_grd3=server.createobject("adodb.recordset") ors_grd3.open sql_grd3,conn,1,3 If Not ors_grd3.eof Then sql_grd4="select * from rp_grd_grade where id_grade='"&ors_grd3("id_grade")&"'" Set ors_grd4=server.createobject("adodb.recordset") ors_grd4.open sql_grd4,conn,1,3 If Not ors_grd4.eof Then 'Response.write sql_grdn Response.write "("&ors_grd4("grade_name")&")" End If Else Response.write "(-)"'&ors_grdn("id_activity") End If 'ors_grd1 End if 'GRD ���� sql_grd="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=14 and id_result=1 and id_status=0" Set ors_grd=server.createobject("adodb.recordset") ors_grd.open sql_grd,conn,1,3 gradsum=0 If Not ors_grd.eof Then ors_grd.movefirst Do While Not ors_grd.eof id_activity=ors_grd("id_activity") 'Response.write id_activity sql_grd1="select * from rp_grd where id_report='"&ors_grd("id_activity")&"'" Set ors_grd1=server.createobject("adodb.recordset") ors_grd1.open sql_grd1,conn,1,3 If Not ors_grd1.eof Then sql_grd2="select * from rp_grd_grade where id_grade='"&ors_grd1("id_grade")&"'" Set ors_grd2=server.createobject("adodb.recordset") ors_grd2.open sql_grd2,conn,1,3 If Not ors_grd2.eof Then gradsum=ors_grd2("grade_name")+gradsum End If End If 'ors_grd1 ors_grd.movenext Loop 'ors_grd Response.write "<td valign=top align=center>" Response.write gradsum Else Response.write "<td>" End if '��ԭ�ҹԾ����������������� Response.write "<td valign=top>" sql_ar="select * from rp_activity_relate where id_table=11 and id_status= 1 order by id_order" Set ors_ar=server.createobject("adodb.recordset") ors_ar.open sql_ar,conn,1,3 If Not ors_ar.eof Then ors_ar.movefirst Do While Not ors_ar.eof sql_thesis="select id_stu,id_activity,id_table,id_activity_r,id_progress_report from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=11 and id_result=1 and id_activity_r='"&ors_ar("id_activity_r")&"' order by id_progress_report" Set ors_thesis=server.createobject("adodb.recordset") ors_thesis.open sql_thesis,conn,1,3 If Not ors_thesis.eof Then ors_thesis.movelast id_activity=ors_thesis("id_activity") 'Response.write id_activity 'sql_thesis1="select thesis_name,id_activity,id_status,date_report,advisor_name1,advisor_name2 from rp_thesis_progress where id_activity='"&ors_thesis("id_activity")&"'" 'Set ors_thesis1=server.createobject("adodb.recordset") 'ors_thesis1.open sql_thesis1,conn,1,3 'If Not ors_thesis1.eof Then Response.write "-"&ors_ar("activity_name")&"<br>" 'Response.write "<td valign=top>" 'Response.write ors_thesis1("advisor_name1") 'Response.write "<td valign=top>" 'Response.write ors_thesis1("advisor_name2") 'End If 'ors_thesis1 End If ors_ar.movenext loop End If 'ors_ar '///��ԭ�ҹԾ�������������������� 'QE2������ Response.write "<td align=center bgcolor=#feffd9 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='11' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '//QE������ 'QE12�Ը��Է�ҡ��Ԩ�� Response.write "<td align=center bgcolor=#feffd9 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='12' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '//QE12�Ը��Է�ҡ��Ԩ�� 'ExitExam4 13 14 15 16 ��ҹ �ѧ �ٴ ��¹ '�ѧ Response.write "<td align=center bgcolor=#f5fdd7 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='13' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '�ٴ Response.write "<td align=center bgcolor=#f5fdd7 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='14' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '��ҹ Response.write "<td align=center bgcolor=#f5fdd7 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='15' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '��¹ Response.write "<td align=center bgcolor=#f5fdd7 valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='16' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '//ExitExam4 'Softskill3 22 23 24 '��ǹ�ؤ��22 Response.write "<td align=center bgcolor=#cafbaa valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='22' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '�ѧ��23 Response.write "<td align=center bgcolor=#cafbaa valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='23' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '�Ҫվ24 Response.write "<td align=center bgcolor=#cafbaa valign=top>" sql_ac_r="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_activity_r='24' order by id_activity" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then ors_ac_r.movelast sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then Response.write orsres("result_name") End If Else Response.write "-" End If '//Softskill '���������Ъ���Ԫҡ�� Response.write "<td>" '���ʹͼŧҹ�Ԫҡ�� Response.write "<td>" '�վ����ŧҹ�Ԫҡ�� Response.write "<td>" '�������ҹ�ҷ�������� + �ѭ������ػ��ä Response.write "<td align=left valign=top>" Response.write "<table width='100%' border='1' cellspacing='0' bordercolor='#b6b6b6'>" sqlt="select * from rp_table where id_status=1 order by id_order" Set orst=server.createobject("adodb.recordset") orst.open sqlt,conn,1,3 If Not orst.eof Then 'Response.write "<tr bgcolor=#ffffcc><td width='16%' valign=top align=center>�Ԩ������ѡ<td width='16%' valign=top align=center>�Ԩ��������<td width='16%'valign=top align=center>��<td width='16%'valign=top align=center>��������´<td width='16%'valign=top align=center>�ѭ������ػ��ä <td width='16%' valign=top align=center>������������� ����ͧ��� �ҡ��ѡ�ٵ�" Response.write "<tr bgcolor=#ffffcc><td valign=top align=center>ࡳ��/�Ԩ����<td width='16%'valign=top align=center>��<td width='16%'valign=top align=center>��������´<td width='16%'valign=top align=center>�ѭ������ػ��ä <td width='16%' valign=top align=center>������������� ����ͧ��� �ҡ��ѡ�ٵ�" orst.movefirst Do While Not orst.eof 'Response.write sqlt&""&orst("id_order")&"<br>" 'Response.write "<tr><td colspan=5>"&orst("table_sum")&"<br>" sqltpa="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and status_del=1 and id_table = '"&orst("id_table")&"' order by id_activity_r" Set orstpa=server.createobject("adodb.recordset") orstpa.open sqltpa,conn,1,3 If Not orstpa.eof Then id_progress_report=orstpa("id_progress_report") orstpa.movefirst Do While Not orstpa.eof 'Response.write sqltpa&"<br>" sqlprt="select * from progress_report_thesis where semeter='"&semeter&"' and year_edu='"&year_edu&"' and id_progress_report='"&orstpa("id_progress_report")&"'" Set orsprt=server.createobject("adodb.recordset") orsprt.open sqlprt,conn,1,3 if not orsprt.eof Then 'aa=1 orsprt.movefirst Do while Not orsprt.eof 'bg2=aa mod 2 'if bg2=0 then 'bg22="#f5f5f5" 'else bg22="#ffffff" 'end If Response.write "<tr>" 'aa=aa+1 sqlrar="select * from rp_activity_relate where id_activity_r='"&orstpa("id_activity_r")&"' and id_status=1" Set orsrar=server.createobject("adodb.recordset") orsrar.open sqlrar,conn,1,3 If Not orsrar.eof Then 'Response.write "<td valign=top>-"&orst("table_sum") Response.write "<td valign=top>"&orsrar("activity_name") If orst("id_table")=14 Then '�����ӹǹ˹��¡Ե sqlrpt1="select * from rp_grd where id_report='"&orstpa("id_activity")&"' " Set orsrpt1=server.createobject("adodb.recordset") orsrpt1.open sqlrpt1,conn,1,3 If Not orsrpt1.eof Then sqlrpt2="select * from rp_grd_grade where id_grade='"&orsrpt1("id_grade")&"' " Set orsrpt2=server.createobject("adodb.recordset") orsrpt2.open sqlrpt2,conn,1,3 If Not orsrpt2.eof Then Response.write " ("&orsrpt2("grade_name")&" ˹��¡Ե)" End if End if ElseIf orst("id_table")=12 Then '������Ԫ� sit in Response.write orstpa("activity_name") End If 'Response.write "</td>" '�š�ô��Թ�ҹ If orstpa("id_status")="0" then sqlres="select * from rp_result2 where id_result='"&orstpa("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then id_activity=orstpa("id_activity") Response.write "<td valign=top>"&orsres("result_name") Response.write "<td valign=top>"&orstpa("activity_result") Response.write "<td valign=top>"&orstpa("activity_problem") Response.write "<td valign=top>"&orstpa("activity_hand") End If Else 'Response.write "<td><td>" End if '�š�ô��Թ�ҹ End If 'Response.write "<br>" 'aa=aa+1 orsprt.movenext loop End If orstpa.movenext loop End If orst.movenext loop End If Response.write "</tr></table>" '//�������������觻ѭ������ػ��ä�����ҧ�� '����Ѵ价�������� If semeter=1 Then semeter1=semeter+1 ElseIf semeter= 2 Then semeter1=1 year_edu1=year_edu+1 End if Response.write "<td align=left valign=top>" Response.write "<table width='100%'>" sqlt="select * from rp_table where id_status=1 order by id_order" Set orst=server.createobject("adodb.recordset") orst.open sqlt,conn,1,3 If Not orst.eof Then 'Response.write "<tr bgcolor=#ffff00><td width='50%' valign=top align=center>�Ԩ������ѡ<td width='50%' valign=top align=center>�Ԩ��������" Response.write "<tr bgcolor=#ffff00><td valign=top align=center>ࡳ��/�Ԩ����" orst.movefirst Do While Not orst.eof sqltpa="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and status_del=1 and id_table = '"&orst("id_table")&"' order by id_activity_r" Set orstpa=server.createobject("adodb.recordset") orstpa.open sqltpa,conn,1,3 If Not orstpa.eof Then aa=1 id_progress_report=orstpa("id_progress_report") orstpa.movefirst Do While Not orstpa.eof 'Response.write sqltpa&"<br>" sqlprt="select * from progress_report_thesis where semeter='"&semeter1&"' and year_edu='"&year_edu1&"' and id_progress_report='"&orstpa("id_progress_report")&"'" Set orsprt=server.createobject("adodb.recordset") orsprt.open sqlprt,conn,1,3 'Response.write sqlprt&"<br>" if not orsprt.eof Then orsprt.movefirst Do while Not orsprt.eof 'Response.write "<tr><td>"&aa&"." Response.write "<tr >" aa=aa+1 'Response.write sqlprt&"<br>" 'Response.write "����relate"&orstpa("id_activity") 'Response.write "<td>"&orstpa("id_activity") sqlrar="select * from rp_activity_relate where id_activity_r='"&orstpa("id_activity_r")&"' and id_status=1" Set orsrar=server.createobject("adodb.recordset") orsrar.open sqlrar,conn,1,3 If Not orsrar.eof Then Response.write "<td valign=top width='50%'>-"&orst("table_sum") Response.write "<td valign=top>"&orsrar("activity_name") End If 'ors_rar 'Response.write "<br>" orsprt.movenext loop End If orstpa.movenext loop End If orst.movenext loop End If Response.write "</table>" '//����Ѵ价�������� a=a+1 ors.movenext loop End If 'if ors.eof %> <!-- </table>--> </table> <%'<!--#include file="thesis_progress_student_list_ext.asp"--> end if %> </td> </tr> </table> <% 'else '���Է� 'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��" 'response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է� 'end if '���Է� %> </td> </tr> <!--<tr> <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th tel.02-649-5000 ext 17600</td> </tr>--> </table>