File Manager

<tr><td>
<div class="table-responsive">
<table class="table table-striped table-bordered">
<tr align=center><td width=35%>�Ԩ����<td width=12%>�������ҷ���<td width=21%>ʶҹ�<td width=11%>�ѹ�����§ҹ<td width=11%>���<td width=10%>��§ҹ��/��������´
			<%
sqlrp1="select * from rp_activity_relate where id_table='6' order by id_activity_r " 
			'sqlrp1="select * from rp_thesis_progress where id_activity='"&id_activity&"' "
			'sqlrp1="select * from "&orsrpt("table_name")&" where id_stu='"&id_stu&"' "
			set orsrp1=server.createobject("adodb.recordset")
			orsrp1.open sqlrp1,conn,1,3
			if not orsrp1.eof then
			orsrp1.movefirst
			t1=1
			do while not orsrp1.eof
			%>
						
						<%
			Response.write "<tr><td width=280>"&t1&". "&orsrp1("activity_name")
If orsrp1("curri_r_s")>0 Then
				checky=ys_year_edu-1
				checky=checky+orsrp1("curri_r_y")
				Response.write "<td align=center>"&orsrp1("curri_r_s")&"/"&checky
			Else 
				Response.write "<td>"
				checky=0

End if
				sql_ac_r="select * from thesis_plan_activity where id_stu='"&id_stu&"' and id_activity_r='"&orsrp1("id_activity_r")&"' and id_table='6'"
				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
					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

id_activity=ors_ac_r("id_activity")
					'Response.write "<td width=180>"&orsres("result_name")
					Response.write "<td width=150 align=center>"&orsres("result_name")&"<br>"&semetery&"/"&yeary
'5��Ǩ�ͺ��� �ա�����ҧἹ��������ѧ����׹�ѹ�����
If ors_ac_r("id_result")="0" Then '��������
'������ա�����ҧἹ������� id_status=1 �ѧ����׹�ѹ����� �����ѹ��������
 sqlb="select * from thesis_plan_activity where id_stu='"&id_stu&"' and id_activity_r='"&orsrp1("id_activity_r")&"' and id_table='11' and status_del=1 and id_status=1"
	Set orsb=server.createobject("adodb.recordset")
		orsb.open sqlb,conn,1,3
	If orsb.eof Then
		'��͡�����ҧ���� ���ҧἹ ��������ա�����ҧἹ����
		If id_type<>"teacher" then
		'Response.write "<td colspan=4 align=center>"
		%>
		<form name="form4" method="post" action="add_thesis_progress_student_form.asp">
			
		<input type="hidden" name="id" value=<%=id_thesis%>>
		<input type="hidden" name="id_activity_r" value=<%=orsrp1("id_activity_r")%>>
		<input type="hidden" name="id_table" value=<%=orsrp1("id_table")%>>
		<div class="form-group">
			<button type="submit" class="templatemo-blue-button">���ҧἹ����</button>
		</div>

</form><%
		End if
	End if
End If 
response.write "</td>" '�Դ��÷Ѵ�����ʶҹС�÷�Ἱ������¹
'5����Ǩ�ͺ��� �ա�����ҧἹ��������ѧ����׹�ѹ�����
					Response.write "<td width=280>"
						sqlrpt="select * from rp_con_attend where id_report='"&ors_ac_r("id_activity")&"' "
						Set orsrpt=server.createobject("adodb.recordset")
						orsrpt.open sqlrpt,conn,1,3
						If Not orsrpt.eof Then
							Response.write " ��§ҹ����� "&orsrpt("date_create")	
						'Else Response.write "<td>"	
						End if
		
				 %><td>
	
	
	
	<%

End If
					'Else Response.write "<td>"

End if

Response.write "</p>"
				t1=t1+1
			orsrp1.movenext
			Loop
			Else
			Response.write "No Data"
			End if
			%>
</table>
</div>

File Manager

Editing: t6detail_stu.asp